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cores 


Purpose: This 


mee we we et ee ee ee me 


mer ws wee we 


tst.b 


Edit Date: 07/21/83 


File: BoaotROM. TEXT. 7 


is the main flew far the Lisa 1.75 Sse ROM 


. PROC 
-ref 
ROMO EQu 
ROM1 EQU 
ROMS ize EQu 
V ideoMemary EQU 
VidSize EQu 
LEDan EQU 
LEDof fF EQU 
mave.L 
maven. } 


BoatROM, 0 
Mak eDesk 


$00000000 
#00020000 
SOOO07FFF 
s000cc000 
$00020000 
$00003000 
$OO000300C . 


(SP )+, AO - 


; Location of ROM i 
;Lecation af secand ROM 
;Size ef each ROM 
jLocatian of Video Memory 
;Size of Video Memory: 


';Turn on LED an CPU BOARD, disable Serial Porte A 


Teen of F LEO. on CPU. shat anable Serial Part A 


cave fFeturn address 


dO-d7/a0-a6,-(#p) ;Save averyone 


LEDon 


; Set Lisa Video mode. 


Floppy driver - Eject a-disk. 


7 Floppy driver - Read a sector. 
; Floppy driver - See if disk 


Set exception vector painter to defaults in ROM 
Set stack ta video memory 


;Turn on CPU board LED 


; Address of ROM for Checksum test 


move. | #ROMO, al 
move. | #ROMS ize, di ;Langth of ROM 
lea ROMODone, ad yReturn address, can not usa the stack 
bra CheckSum ;Go verify the checksum of First ROM 
ROMODons 
, move. | #ROM1, al rAddrass of ROM for Checksum teste 
move. | #ROMS ize, dl ;Length of ROM 
laa ROM1Done, a0 ;Return address, can not use the stack 
bra CheckSum 3Go verify the checksum of secand ROM 
ROM1Done . 
: move. | #V ideoMemary, a1 ; Address af Video memory 
mave. | #VidSize, dl jLength of Video memory 
lea VidMDonea, a +Raturn address, cam not use the stack 
bra VidMem ;Go do video memory test 
VidMDone Le : 
mave. | #V ideaMemory, 61 ; Address of Video memory 
move. | #VidSize, dl ;Length of Video memory 
lea VidPMDone, a0) =; Return address, can not use the stack 
_bra VidPMem ‘';Go da video memory parity test 
VidPMOone 
: Weite screen area to all ones ete / 
; Rest of screen memory to all zeros — 
jar MakeDesk ;Make a desktop 
: move.b #1,d0 ; Timer #1 teat (level 6). 
bse Timers 
, bsr RS$232 aRS232 tests (Cevel 6). -- 
bar TExpans ion ;Ck for expansian and slot 4 inter (5 ta 2). 
mave.b #1,d0 3Timer #0 cast. 
bsr Timers 
: sd move.b #1,d0 3 Timer #2 test. 
bsr Timers : . 
: bsr COPSTest ; Verify basic COPS operation. 
; SetContrast - Set new contrast value. i . : 
; SetVo lume - Set speaker volume. 1 , hg 
; Silence - Turn of f speaker, 
; Beep ~ Tanes for speaker. : 4 
; Poll - Polling mode on COPS, | 5 
; Keyboard - Get keyboard I[.D. . 
; KeybdEvent - Get a keyboard event, must also handle cops arror codes. 
: KeybdPeak - Examine keyboard queue. 
bsr SizeMemory “4 Sine memory, Find all memory 
bsr MMUBas ics 5 MMU “PaadAurite & address test. 
: osr MEMPattearns - .)Main -mematy pattern tests. 
bsr MEMPar ity, ;Main memory parity circuit test. 
bse. MPEUnSeseney 


sMMU functional test... 


iz oan. 


[, Floppy deer ~ Debug commands required by Field Se cwiee! 


bsr IWMChip ;TWM, Floppy driver chip, test. 
Built-in hard disk driver - Read status of selftaste. 
; Built-in hard disk driver + See if disk is ready yet. 
; Built-in hard disk driver ~ Read a sector. 
bsr BuiltiIn sBuiltin hard disk port test 
bsr TestlExpansian ;Execute expansion card status program 
| bsr Test2Expansion ;Execute expansion card status program 
bsr Test3Expansion ;Execute expansion card status program 
bsr Tast4Expansion ;Execute expansion card status program 
movem. | sp )+, dQ-d7/a0-a6 ;Restore the world 
jmp a0 . 
; . ; ah ae 


Function ~ Compute a checksum on tha memory pointed ta. 


On entry expects 


aQ = return address after test is done 
al = start address to check 
di = number af bytes to tast 

On exit 


dl is destrayed 
d2 = Expected checksum 


' 

: dO = G for checksum OK, and non-zero for bad checksum 
: d3 = Actual chacksum 

c 


jmp (a0 ) 


i 


;Functian - Perform mamary tests on the video memory 


On entry expects 
aQ = return address after test is done 
al = start address ta check ce 
di = number af bytes to test 


dO = 0 for memory OK, and non-zero for bad memory 


: On exit 
; Memory is left at all zeros 
Men 


jmp (20 ) 


er reer ce ER PA Steric 


il 


Function - Perform parity tests on video memory 


' 
’ 
; On entry expects 

; aQ = return address after test is done 

; al = start address to chack 

; dl = number of bytes to test 

; On exit : ‘ 
i 


: dO = 0 for memory OK, and nan-zera for bad meniry parity 
: Memory is left at all zeros ; : 
idPMem bbe ge 
jmp (a0) . 


Function - Perform timer chip teats 


; On entry expects 

; dO = timer number to test, byte (0 to 2) 

: On exit 

; dQ = 0 for timer OK, and non-zero far bed timer 
: aQ = Detailed error table 

T 


rts 


Functian - Perfarm RS232 port tests 


On entry expects 
nathing expected 
On exit 


a 
oa 
“uo 


0 for timer OK, and non-zero for bad timer 
Detailed error table: ; 


ets 


. 


Funetion - Check for expansion slot. and slot 4 interrupts 


On entry expects 


; nothing expected 
; On exit 

‘ dQ = 0 for interrupts OK, and son-zero for stray interrupts coming in 
. a0 = Detailed error table- 

IExpansion 


ets 


Function - COPS test, turns on the pert, brings in any codes, reads the clock, 
uses special register read commands ta verify COPS (Chacksum? ), sands 
keyboard resat command and gets keyboard [.D. to check against previaus 
{.D. Handles COPS error codes coming in, 


; On entry expects 

: nothing expected 

; On exit 

; dQ = 0 for COPS OK, and non-zero For bad values from COPS 
; aC = Oetailed error table 

COPSTest ‘ 


rts 


Function - Find memory on other boards. 


; On entry expects 

; nothing expected 

3 On exit ; 

; dQ = QO far found memory OK, and non-zera for nan memory Faund 
: aQ = Detailed error table 

; Places memory data in table in video memory 

SizeMemory 


rts 


Function - MMU read/write & addrass test. 


; On entry expects 

; Expects that a memory board exists 

> On exit 

; dO = Q fer MMU OK, and non-zero for ued MMU Ram 
; aQ = Detailed errar table v 
; Leaves MMU in a state that ...... 

M A 


» dO = 0 for MMU OK, and non-zera for bad Ram 


Leaves Mamory written to all zeros, 
EMPatterns 
’ * s 


rts ae WE 


AE Saee 
rts 
. a aca aaa ge a GR Se a 
; Function - Main memary pattern tasts. 
; On entry expects ; , f 
; Expects that a memory board exists 
; On exit 
7 aQ = Detailed error table 
M 


vy 


Function - Main memory parity circuit test. 


; On entry expects 

; Expéicts that a memory boerd exists 
; On exit 

; dO = 0 for MMU OK, and non-zers for bad MMU Ram 
: a0 ‘= Detailed error table : 

; Leaves MMU in @ state that .c.eee 

Mer ar ney 


ets 


Function - MMU Functional test. 


Expects that a memory baard exists . 
On exit 


dQ = 0 for MMU OK, and non- zere For, ‘had MMU Ram 
a0 = Detailed error table 
Laaves MMU in a state that ...... 
MMUF unct ional , 3 


’ 

, 

’ 

; : ; : 
; On entry expects ; + 
’ 

’ 

' 

’ 

’ 


ets 


Function - IWM, fleppy driver chip, test. 
On entry expects an. 


Expects nothing a * 7 ; i ; : ; pegs 
On axit Bo Bea 8 a! 


sient eA le ae ranean nt i pat aden in cone rt sihaelnlennrntlertbe three Te RRR Een ARE Sg: Eag Be Hk Hanna re ene OTe niagara 


| dO = 0 for IWM OK, and non-zero for bad IWM 


; aQ = Detailed error table 
; Leaves IWM in a state that ...... 
IWMChip 


Function - Built-in hard disk part test 


q 

; On entry expects 
; Expects nathing . 

; On exit : 
i dQ = 0 far port OK, and non-zero for bad. part 
: aQ = Detailed error table 

; Leaves port in a state that ...:.. 

Builtin 


. 
rts 


ine a 


Function - Execute expansion card 1 status program 


; On entry expects 

; Expects nothing 

+ On exit : 

3 dO = OQ for card OK, and non-zero for bad card 
: a0 = Detailed error table 

TestlExpansian 


res 


era nt eaten a NT Ae A NRE SO 


Functian ~ Execute expansion card 2 status program 


1 

; On entry expects 

: Expects nothing 

; On exit 

; dO = 0 for card OK, and non-zero far bad card. 
; aQ = Detailed error table 

Test2Expansion 


rts 


Y 


Ce a eEEEnEEEninAEEnandhnmamammmmiaenoennamammnnaneenansnenamtrametseonmemaemmmmaenemaumisnroe aamamenanenmaniad - 2 _ 


On entry expects 
Expects nathing 
; On exit 
; dO = 0 for card OK, and non-zero for bad card 
; aQ = Detailed error table 
Test3Expansian 


; F 
; Function - Execute expansion card 3 status program 
g 


rts 


/ 


; Function - Execute expansion card 4 status program 
; On entry expects i 
; Expects nothing - > 
; On exit 

; dQ = 0 far card OK, and non-zero for bad card 
i a0 = Detailed error table 

Teast 4Expaasioan 


rts 


. PROC MakeDask,0 

ref Alcon Draw, ADialag, DeskTop, Paint String, Paint Ch 
mave.t. (SP )+,A0 s save return address . 

mavem. | dQ-d7/aQ-a6,-(sp) ; Sava everyane 


jse DeskTop ;Maka a blank desktop iz 
mave.W #60, -(SP yu os 

mave.W #30, -(SP “pyl ao 

mave.W #&640,-(SP) pad oo 

mave.W #90, -(SP) ;y2 . 

jse ADialag 7Oraw dialog box for main sereen 
mave.W #90, - SP ) pal 

mave.W #50, ~-(SP ) 2 4 gh hos , 

mavea.W #69, -(SP) ‘ “ ;Lean code, LISA picture 

jser Alcon Draw ';Oraw LISA picture in bax 
mave.W’-8170,-(SP) ~ 9. = gxk-- 

move.W 850,-(SP)  syl a ; 

mave.W 81, -(SP). an ;Icon code, Big board picture 


itr Alcon Oraw :Oraw Big board picture’ in box 


rage UU 


move. 
move. 
lea 
move. 
jsr 


=Z= 


move. 
move. 
move. 
jse 


fz=E=z 


move. 
move. 
move. 
jsr 

mave. 
mave. 
move. 
jsr 


Etre FLEE 


move. 
move. 
mave. 
jsr 

move. 
move. 
move. 
jsr 


ETE LBLEE 


move. W 
mave.W 
move. W 
jse 

mave.W 
move. W 
mave. w 
jsr 


move. W 
move.W 
mave.W 
jer 

mave. W 
nove. W 
move. w 
jse 


mavem,. 
jmp 


. Byte 
- ASCII 
- Byte 


. END 


@ 


l 


#172,-(SP) 
#60, -(SP) 
CPU, al 

ai, -(SP) 


Paint String 


#250, -(SP) 
#50,.-(SP) 
#2, -(SP) 
Alcon Draw 


#330, -(SP) 
#50, -(SP) 
#3,-(SP) 
Alcon Oraw 
#340, -(SP) 
#60, -(SP) 
#'1',=(sp) 
Paint _Ch 


#410, -(SP) 
#50, -(SP ) 
#3,-(SP) 

Alcan Draw 


#420, -(SP) 
.#60,-(SP) — 


#'2',-(sp) 
Paint Ch 


#490, -(SP) 
#50, -(SP) 
#3,-(SP) 

Alcon Draw 
#S00, -(SP ) 
#60, -(SP) 

#'3', -(sp) 


_Paint_Ch 


#570, -(SP) 
#50, -(SP) 
#1,-(SP) 

Alcon_Draw 
#580, -(SP) 
#60, -(SP) 
#'4°,-(sp) 
Paint Ch 


aQ 


"CPU ' 


zl 


ryt 


patring address 


pul 

iyl 

yican code, memory board picture 
;Oraw memory board picture in box 


pal. 

syl ; 4 
:Iconm cade, Expansidn card 1 picture. 
;Oraw Expansion card picture in ‘bax 
ral 


yl 


; Character 


7 Place character on the screen 


ped 


yd a 
jleon cade; Expansion card 2 picture. 


~—Oraw Expansion card picture in box 


3xl 

7yh 

; Character 

;Place character aon the screen 


gud 
“ayl 


jIcon code, Expansion card 3 picture 
;Oreaw Expansian card picture in box 
yal : 

iy 


3 Character 


;Place charectar on the screen 
pil : 

3yl 

sIcan cade, Expansion card 4 

;Oraw Expansion card picture in box 
sail 

iyl 

Character 

sPleace charecter on the screan 


ae ete " yRestore the world 


To: Gary Martin, Paul Baker, Ann Nunziete : 05/20/83 
From: George Cossey : 
Subject: Lisa 1.75 ERS, 2nd pass 


a NN en! 


The fallowing is a list of questions, comments, and request for more 
information regarding the Lisa 1.75 system. 


* 


Lisa 1.75 


44/11 TOMER SSSA A// 


$253 Timer chip. 
Three timers are not engugh. 
What about 2 timer chips? 


S41 411f BOOT ROM S////// - 


Where is there a better place for the serial number ? 
Baing tied to the Boot Rom makes updates for the Boot Roms very hard 
to do. 


In which Rom is the hardware interface modula? 


/41///7/ PARALLEL PORT ///////7// 


Need details on the parallel part driving the hard disk. 


f/4/ 4/4 SERTAL PORTS S///7/4/4/ 


Are the serial ports to be IDENTICAL to the current ones? Every part of 
the circuit. 


Add buffer that can be disabled ta output of serial parts. This way the 
self cast in the SCC chip can be used. 


1“ 


LELTTLS ST BIEL SAAS SS SA 


IWM chip. Not my ares, need for Gary P. to lock at it. 


SITELTLL CR BOARD SIALSSIT a ae 


Reorder of interrupt levels? If doing disk transfers and the serial bus 
asks for attention, then trouble. 
Why is SCC sa high? 


Get more of an address for a parity error. Currently only get MSB bits, to 
do better diagnestics and error correction the complete address is needed. 
Where ara the following status bits?. , 

Soft arror (ECC) 7 
Hard Error Meactty) 
Bus timeout 
Horz sync. 


+ 
DIAG1 and OLAG2 equivalents? 
OMA allowed? Where is DMA register address? 


Is the Contrast/Valume latch readable? Reverse contrast value ta normal 
01s dark? 


t 
Why not latch in the physical address an a parity error? MUCH easier far 
software. - 


Where is the reset switch? 


SAIS AL EXPANSION 4//7//// 
Are all current expansion slot beards compatible? Two modes, ane for new 
fast boards and ane for Lisa 1 boards? 


‘ 


Three expansion slots? 


SALf/ Lf TEST CARDS S/A////7/ 


A Tast card designed for the. two “ne "slots? - 


CPU board ta have connector desiaqned far equivalant ta. ‘tobre? ‘Connector’ 


far voltage measurements? Other connections for disgnostic purposes? 


Test card as part of the design? - 


SASS ES COPS S4/41 47/7 

Differences in current 6522/COPS combination and new COPS? 

COPS will hald a boot device. New commands to set and read it? 
What does the Power Fail line to the Cors do? 
Add capability of any COPS event to be NMI? = * 

Use 871 button as the SW2 input line for the COPS? 

Add capability of reading NMI ‘key? 7 ; 

Add capability of reading kayboard indicators? 

Which registers can be read and of what use la that? 
What is in returned keyboard status? (command 0000 0100 ) 


Are mouse and clock codes the same? 


Handle NMI condition evan though FIFO is full? Currently, if FIFO is 
full then NMI condition is ignored. 


COPS can lose commands sent to it? us. 


The 1 secand limit before an NMI is generated, NO don’t do this to us. 
NO don't reset the system automatically. 


Questions aon Flaw chart. 


Page 


—— 


program LisaTalk; 


uses ($U UNITS: UNITLIB} STOunit, SCCunit, ASMunit, TASKunit; 


canst 
RegBase = $400; . ~ {reg save area} 


type 
aRegset 2 
packed racord 
Oregs : array eee of long; 
af 


Aregs : array [0..7 leng; . 
date Flags : byte; 
SR word; ; 
PC : long; “ 
FC : ward; Funetian code on Sustrror } 
AA : long; address an arrar } 
IR : word; instructian rag} 
USP : Lang; ; user stack ptr 
CSP : long ; call stack ptr 
end; : ; 


TTalk¢md = ( tEcho, tGo, tlead, tOump, 
tRdBytes, tWrBytes, thdWords, tWrWords, tRdLongs, 


TTalkData = 
packed record case integer of 
0: regs : aRegset ); 
a: byts : packed array [0..127] of byte ); 
16: weds : array [0..63] of word ); 
32: Ings : array tO. 324 of lang 
end; 
TOatalLangth = ( tiByte, tiWard, tilang ); 
aTalkPkt = 
record 
tCmd + TTalkCmd; 
tCount +: integer; 


tAddr : lang; 
tOata : TTalkOata 
end; 
charset = set of char; 
aMessage = string[39 }; 


var . 
emdD : integer; CameBack, ACKad : boalean; 

CmdSet, OctSet : charset; thaeDetalength : TOatalLength; 
SendPkt, RecvPkt : aTalkPkt; 

theRegs : aRegset; 


+" 


procedure Wait; 


var C : char; i: integer; 

begin 
CameBack := false; ACKed := false; 
repeat 


until AvailB® or KeyPress; 
if KeyPrass 
then 

getC(C, coe 
if RecvBC(C) 
then 

begin 

CameBack : = true; 

if C = ACK ~ 

than . 

ACKed :3 true 
else - 
begin 
write( ‘bad response’ ); NL; 
for i :2 1 toa 1000 do ; 
Flysh6 
end 

end 
else. 

begin write( ‘no response’ ); NL’ and 

end; 


Funetiion ediv( A, B: integer ): integer; 
begin 

ediv := (A+tB-1) div B 
end; 


Funetian getH( var L : long; F : boolean ) : baolean; 
var di: nybl;. 
begin 
Lo:= 0; emdD := OQ; : ; 
if fF i 
then 
begin write( ‘: ' j; ReadCmdS end; 
while eomdC = SP do matC; . ey ‘ 
if getHl(d) pa 
then 
begin 
rapeat 
emdD :3 emdO+l; 
Loss L*$l0 + d: 
until note getHi(d); 
 gatH : 2 true 
and 


tWrLongs }; 


procedure Init; 

var io: integer; . ae 

bagin : 
STDinit( ‘LisaTalk 1.5 (18-Nov-82)' ); 
CmdSet := Oy OG Rg OS a Oe 
OctSet :=% ‘O'..77" 7; 

SCC init (9600, 2) 


end; 


procedure Fini; 
begin 

SCCFini 
end; 


procedure getC inSet( var C : char; So: aString; Valid : charset |); 


begin 
repeat 
weite( S, ': ' )j getC(C, true); NL; 
if ¢ = CR 
than 
exit(getC inSet ) 
until C in Valid 
end; 


functian getAddr( var A: long ) : baolwan; 
begin 
weite({ ‘addrass' ); 
A:2= 0; theDataLength := tlByta; 
if getH( A, true ) 
then 
begin 
getAddr := true; 
if emdC in [ 'W', ‘L‘ J 
then 
begin 
A :2 Land( A, -2 ); 
case cmdC of 
"W':  theDataLength :2 t lWord; | 
‘L':  theDataLength «2 tllong 
end; 
nxtc 
end 
end 
else 
getAddr := False 
end; 


Fuhetian getCount( var C : integer ) : boolean; 


begin 
write( ‘count: " ); mreadCmdS; — 
if cmd > O 
then 
: getCount :3 getH4( C ) 
‘ élse 
gatCount := false 
end; 
oO 
procedure doLload; . 
var 


i, 1, Len: integer; -A: lang; found: beolean;. P : ThlockP; 
Lname : aMassage; Lfile : file; 
image : packed array [0..16383] of byte; 

begin 


if L 20 
then 
axit(daload ); 
Lname :2 concat( Lname, *.08J' ); .- 
{$I-} reset( Lfile, Lname ); bre) 
if TOresult <> O ene 
then a , 
begin write( ‘error opening ", Loame );- exit(doload) end; 
Len := blockread( Lfile, image, 32.) * $12 -1; : 
i :2 0; Found := false; ; F 
repeat : : 
1:2 image[i+2]*$100 + image[i+3 J; 
if ( 1 <=.0 ) ar ( (itl) » Lean ) 
then ; 
begin write( ‘bad File’ )j--exit(doload) end 
else. Ma : 
if imagef{i] = 385 
then 
found := true 
else 
i:= ied 
until found; , - ae 
P := pointer(: ard4(@imaga) + i * 8 ); | 
write( ‘load address’ };. 
if mot getH{ A, true) 
then ; 7 oe eae ‘ : 
bagin write(BEL); exit(doload). end; — 
with SendPkt do ue 


es 


a] 


ee ne Je eter ees Daren eta i loti Gin peaieened Seen Peete te ele cermin 


write(,’enter filename[.0BJ} - " ); readin( Lneme );. L :2 length(Lname ); 


begin tCmd := tload; tCount :# 18; tAddr := A; | and; 
PutPkeB( @SendPkt, 8 ); , . 
Wait; 
if ACKed 
then 
begin z 
PutPktB( P, 1-8 ); 
Wait 
end 
tend; 


procedure doDisp lay; : 
var 
C : cher; recount, i, K+: integer; A: long; 
data : TTalkOData; 
begin 
weite( ‘Display’ );  NL;° 
.if getAddr(A) 
then 
SendPkt. tAdde := A 
else 
exit(doDisp lay ); 
with SendPkt do 
begin 
if nat getCount(tCaount ) 
then . 
tCount := 128 
else 
if tCount: > 128 
then 
tCount := 128; 
casa theDataLength af 
tiByte: begin tCmd :* tRdBytes; K := tCount end; 
tiWerd: begin tCmd := tRdWords; K :2 ediv(tCount,2 and; 
tilLang: begin tCmd :3 tRdlangs; K :3 giv) cccune 44 and 
end : : 
end; : 
PutPktB( @SendPkt, 8 ); 
repeat 
if KeyPress 
then 
begin getC(C, false); SOC end 


until GetPktB( GOata, recount 
if recount <> SandPkt. tCount 
then 
begin write( ‘wrong length’ ); NL and; 
with Data do 
for i :2 0 to K-1 do 
case theDataLength of 
t IByte: 
begin 
if (i mod 16 )=0 
then : 
begin NL; putH8( Ati, ‘':” ) end; 
write(' '); putH2( byts[iJ, NUL ) 
and; a are 
t Word: 
begin 
if (i mad 8 )=0 
than : ? 
begin NL; putH8( Aein2, “:' ) end; 
write( ' ' ); putH4( wrdsfij, NUL ) *e 


end; 
t lLong: : 

begin 

if (i mod 4)=0 

then as 
« begin NL; putH8( A*ied, ':' ) end; 

write( ' ' ); putH8(. Ingsfi], NUL) 

end . 
eand{case C}; 


- 


NL 
end; 


procedure getRegs; 
var ecount : integer; 


begin 
with SendPkt do 
begin ‘ ; 
tCmd := tRdWords; tCount :* $58; tAddr := RaegGasa > 
and; : ; ; ; 
PutPkeB{ ISendPkt, 8 ); . : 
if nat GetPkteB( atheRegs, reaunt -) 
then ; ; . 7 : 
begin write( ‘timeout’ ); NL; exit(getRegs) end 
‘alse Po aw , 
if reaunt <> $58 ; . . = 4 
then ee 


begin write( “wrong length, ‘, recount ); NL end’ 
and; , i : : 


procedure doRegs; : 
var recount, 4: integer; 
begin , — 
getRegs, 
with theReqs dao 


rage 


Wy 


rr cannes NEENAH I FORE nit mani sonia mmhieete 


begin ; i re 
wreite('PC='); putHB(PC,SP); write('SR='); puth4(SR, SP); 
weite('US=" ); putH8(USP,CR); - : 
far i := 0 to 7 do 

begin 


weite('D', i:l,'3" ); 
if (i mod 4)=3 then 
end; 

far i: 0 ta 7 da 
begin 
write('’A’, i: 1,‘ =" 
if (i mod 4)=3 then 
end 

end 

and; 


procedure setReg; 
var 
Cc, Ci, C2: char; 
i: integer; R: 
begin 
write( ‘setReg'’ ); 
netC; Cl := cmd; 
Rnama := ‘xx'; Rname[{1] 
with theRegs da 
begin 
case Cl of 
"A','O': 
if C2 in OctSet 
then 
begin 


long; 


NL; 


13 
if getH(R, true) 
then 
bagin 
if Cl = 
then 


‘pt 


Dregs[i] :2 R 


else 


Aregs[i] :2= 


ok :3 true 
end 
end; 
'P’: 
if C2 = 'C' 
then 
if getH(R, true) 
then 


bagin PC 


then 
if getH(R, true) 
then 
if emdD = 4 
then 
4 begin 
"Us 
if C2 5 'S' 
then 
if getH(R, true) 
then 
begin USP 
end{case Cl); . 
and{with theRegs }; 
if mat ok 
then 
beg th 
with SendPkt do 
begin 
tCmd :>= tWrWords; 
with tOata.regs do 
begin 
For i:2 0 to 
begin 


SR :2 


7 da 


o 

1+ 

a 

io 

“ 
a 
we 
— | 

un 


. SR; 


end; 
PutPk tB( 
Wait 
end: 


procedure doSet; 


Rname : 
ok : 


nxt; 


22 R; 


:= R; 


theRegs 
theRegs 


PC 


9SendPkt, $60 ); 


putH@(Dregsf 1], SP )s 
NL ae 


putHS(Aregs[ i ], SP ); 
NL s ; 


ter ing( 3} 
boo laan; 
ok :* false; 

C2 :@ amd; 

:3 Cl; Rname[2]:* C2; 


= ord(C2)-ord('0' ); 


ok :2 true end; 


/ 


R; ok :® true and: 


ok :2-true@ 


Pa 


and. 


weitea(BEL); exit(swtReg) end; 


tCount := $58; tAddr :7 RegGase; 


.Oregs ij; 

»Aregs| i 7 

a 

:3 theRegs.PC; USP :2 theRags. USP 
Z ca 


packed array [(0..3] of “byte ) 


type 
Tkludge = 
record case integer of 
. 323 Li. lang }; 
16:.{ wQ, wil ward ); 
8: bo: 
end; 
var. 
C : char; crcount, i, K: 


begin 


integer; A: long; X=: Tk ludge; . 


weite( ‘Set’ ); NL; 
if mat getAddr(A) 
then 
begin 
if emdC = 'R' 
then 
setReg 
else 
wr ite(BEL ); 
exit(daSet ) 
and; 
with SendPkt da 
begin 
tAddr := A; k :2 0 


me /DALRUT LS OAL ALR. [EXT 


* i : a i 


i : 
while gatH( X.1, k=Q ) do with tOeta da 


begin 


case theDataLength of 


t IByte: 
begin 
if emdD > 6 
then 
begin byts[k ] 
if cmdD >» 4 
then 
begin byts[{k] 
if emdD > 2 
then 
begin by 
byts[k] := 
end; 
t lWard: 
begin 
if cmdD > 4 
then 
begin wreds[k] : 
wreds[k] := X.wl 
end; 
tiLong: Ings[k] :2 
end; 
k sek # 1 
end; 
case theDataLength of 
tlByte: begin tCmd 
tiWard: begin tCmd ; 
tiLang: begin tCmd 
and : 
end; 


>= X.b[O]; k :® kel end; 
:3 X.b[1]; ko ss k*l and; 


>= X.b[2]; k := k*l end; 


= X.wO; ko :@ kel end; 


>= tWrBytes; tCount := k end; 


= tWeWords; tCount := k*2 end; 


7@ tWrlangs; tCount «3 k*4 ‘end 


‘ 


PutPktB( @SendPkt, 8 + SendPkt.tCaunt ); 


Wait 
end; 


procedura doGo; 
var C: char; A: leng; 
begin 
write( 'Ga" ); NL; 
with SandPkt do 
«begin 
if getH(A, true ) 
then 
tAddr := A 
else " 
tAddr := QO; 
tCmd := tGo 
end; 
PutPktB( @SendPkt, 8 ); 
Wait; 
if ACKed 
then *# 
doReqs 
end; 


procedure daCommands; 


var 
dona : boolean; 
C : char; 
begin 
done := false; 
repeat 
NL; 
if AvailA 
then 
begin 
weite( ‘[' ); 
while RecvAC( C. ) do write(C ); 
weate( ‘J’ ); AL 
end; ‘ re ; 
getCinSat( C, ‘D(isplay) Gio) L(oad) Quit) R(egs) S(at)', CmdSet ); 
F lushB; : ts i : : . : ae 
if C = CR 
then 
else. 
case C of ; 
‘O': :doDisplay; 
‘G's doGa; 
' doLaad; 


ba tae 


fl Ven ae. 


Paqe 0 


ee BH 


‘S's doSet; 
‘Q': done :2 true 


end 
until done 
end; 
begin 
Init; 
doCommands; 
Find 
end. 


UNIT Menu; 


{ Edit date: 05/10/83 G.Cossay. 
05/10/83 G.Cossey - Changed alert format; now buttons are CONTINUE 
and CANCEL with each one described in the alert. } 


INTERFACE 
uses (SU obj: XYGRAPHICS. obj} XYGRAPHICS, 
ey ab j:hwint. obj} hwine; 
{ Also needs hwintl,ORAWIT, and PORAWIT for (eins )- 


canst 
BUTTONS = 64; 
ABUTTONS = 5; 
MBUTTON = $06; 


x1, 2, yl, y2, Selected -array[ 1. : BUTTONS ] of integar; 

Axl, Ax2, Ay1, Ay2, ASe lected :areay[1..ABUTTONS ] of integer; 
ATopBut ton, TopButton, MX, MY, Current _Item: integer; | 
GOTBUTTON, EVENT: boa lean; ; - 
KEY: keyavent; , 


Procedure ClearButtons; 

Procedure SelectButtan(var Item: integer ); 

Procedure AddButton(Number_Buttan, xxl, yyl, xe2, yu2: integer ); 
Procedure SUGHGeoniNumsera Button: integer ); 

Pracedure InvertButton(Number Button: integer ); 

Procedure eee Button, Last _Button: integer ); 
Pracedure WhiteButton(First_| Button, Last _Button: integer ); 
Procedure AAddButton(Number _| “Button, «x1, yyl, x2, yy2: integer ); 
Procedure AC learButtans; 

Procedure ASelectButtan( var Itam: integer ); 

procedure ALERT(var AError: integer; Mainline: string25S ); 


IMPLEMENTATION 


procedure PSaveAlart; axternal; 
procedure PRestoreAlert; external; 


A a ta) 


Procedure ClearButtons; 
{ Clear any buttons in use } 
var 

INDEX: integer; 


begin 
TopButtoan: = 1; 
far INDEX: 1 ta BUTTONS do / 
begin : 
XL [INDEX]: = 0; X2[ INDEX]: = 0; 
end; 
end; 


} 
Procedure CheckMark; a ‘ 


var % 
INDEX: integer; ee Oe 
mask,cursar; arcray[1..12] af integer; - 


begin 
for INDEX:= 1 ta 12 do 
mask [ BNDEX J]: 20; 


eursor[1]] :2= $0001; cursor[2] :* $0003; cursor 3] :2 $0006; cursor :@ $000C; 
cursor{S |} := $0018; cursor{6} 2:3 $0030; cursor[7] :* $COGQ0; curser ; :® $60C0; 
cursor[9] := $3180; curser{ 10]: = $1800; curser{11]:* S0E00; curser[12]:*= $0400; 


Cursarimaga( 4,9, 12, @cursor[ 1], @mask[ 1] ); 
and; 


 Reenieertes ed LOE IRAE | 


Procedure SelectButton; 

var 
INDEX, Current, [xl, [x2, fyl, [y2: integer; 
Ck Active: Seauaans 


Procedure Do Cursar; 
far 
[NDEX: integer; 


begin 
Current: = O;. 


{See tf ae any buttans} © 


INOE<: = 1; ; 

repeat , fe cat eae DP oe 0 ihe 

iF (MX>(-X1[ENDEX ])-10) and eos (¥2C INDEX })*10 ). then, 
heqin 


if (MY ee 10) aad (MY <(Y2[TNOEX ])¢5 ), then. 
Currant: = [MMe y¥: 


Page 0 


a aie 


end; 
ENDEX: = INDEX+1; 
until (Currant<>0) or ( INDEX>TopButeon ); 


if (Current=0) and os Active then . 
begin 
ArrowMouse; | 
Ck Active: false; 
end 
else if (Current<>0) and not(Ck Active) then 
begin ; 
Ck Active: = true; a 
CheckMark; 
end; 
end; 


Procedure Aighcdehe: 
{ Highlight any buttons séganed } 
var 

INDEX: integer; 


begin 
Current: = Or 


(See if over any buttons} 
TNOEX: 1; 
repeat 
if (Sa [EE ]) and (MX<X2[ INDEX ]) then 
begin 
if (MY>YL[INDEX]) and (MY<Y2[INDEX]) then 
Current: = INDEX; 
end; 
INDEX: = INDEX+1; 
until REuer sneer o) or (INDEXsTopButton ); 


(If nat aver any buttons then turn of fF all highlights} 
if per enenc) then 


begin 
for INDEX:= 1 te TopButtan de 
begin 
if ( SELECTED[ INDEX ]<>0 ) then 
begin 
Ixl: SXL[ INDEX |#1; [x2: «x2[INOEX ]-1; 
Tyl: #YL[ INDEX Jot; Iy2:=v2CINOEX ]-1 
InvertArea(Ixi, Tut, Tx2, Ty2 ); 
SELECTED[ INDEX|}: = 0 3 
end; 
and; 
; end 
else 
beqin : 
if (SELECTEO[Current ]=0 ) then / 
begin : 
Im]: =X1f[Currant jel; Ind: *X2( Current |=-1; 
: Tygl: =¥1[Currene jel; Ty2: *¥2( Current |-1;. 
InvertAraa(Ixi, Iyl, tmz, Ty2 ); 
SELECTED[Current |: ral; 
end; 
end; mn ‘ ‘ 
end; % 
Procedure ClearLight; 
var ; 
INDEX, Ixl, Ix2, yl, Iy2: integer; 
begin 
For INDEX: = 1 to TopButtan da 
begin : 
if (SELECTEO[INDEX ]<>0) then 
begin 
(xl: =X1{ INDEX Jel; Im2s 2X2(ENDEX J-1; 
Cyl: =Y1] INDEX {+1;. [y2:2¥2{ INDEX j-1;) * 
InvertArea( Ix, tyl, Ix2, Tye ); - 
SELECTED{ INDEX }: = 0; 2s 
end; : 
end 
end; 


begin 
for [NOEX: = L to TopButton do. 


SELECTED[ INDEX ]: = 


Ck Active:= false; 


repeat 


EVENT: = Key@dEvent( FALSE, FALSE, KEY }; : (Plusty aeehe 


untel mat (EVENT ); 


ArrowMouse; 
Item: = Q; 


&2/GALKUP: MENU. TEXT Page ¢ 


< S : each ernest etme fan natasha teratnthehaserni ese epee tenn ance eget 
Voces 


GOTBUTTON: = FALSE; 
repeat 
MouseLocat ion(MX,MY ); - 
Do Cursor; 
EVENT: = Ke URGE Sent EAESE, FALSE, KEY ); (Get buttan down} 
GOTBUTTON: = (MBUTTON = KEY, ‘key i 
if EVENT and (Key. State=8) and (Key. ASCII#".' ) than 
begin : : 
Ttem:= 1; ; 
Exit(SelectButtan ); 
end; e 
until GOTBUTTON; 


GOTBUTTON: = FALSE; 
repeat 
MouseLocat ion(MX, MY ); 
De Cursor; : : 
Highlight; ‘¢ . 
EVENT: = KayBdE vent (FALSE, FALSE, KEY); (Get button up) 
if EVENT then 
begin es 
if (ord (KEY. asc ti )et) then be 
GOTBUTTON: = (MBUTTON # KEY. kay ); 
and; 
until GOTBUTTON; 


for INDEX: = 1 to TopButtan do 
if (SELECTED[ INDEX ]<>0) then 
Item: = INDEX; 


if (Item=0) then 
ClearLight; 
until (ITtem<>0 ); 
Current Item: = [tem; 
HourG lass; 
end; 


x 


(FO OID DI DIOISIOIOIOIOIOIOIGIOIDIDIDIOICIOIDIIORDIOIARDIO IIE SIOIOIO III I TATTOO IIIA TAI 
Procedure AddButton; 


begin 
if (Number Buttan > BUTTONS) then 

Number Button: = BUTTONS; : " 
if (Number Button > TopButtan) then 

TopButton: 2 Number Sutton; 


xifNumbar Button ]:= xxl; 2 Number Button = eed; 
yi{Number Button j:2 yyl; y2[Number Button |: = yy2; 
MakeBox( xxl, ygl, xx2, yy2 ); 

end; 


(ASIII IE NODE IOI IOI IOIIDIOR IO IDI DIO IDICIOITIERDIEIOIDIEIOR IE IADIEI IDOI IOI TER IRC IDIOT) a 
Procedure SubButtan; 


begin 
if (Number Button > BUTTONS) then 
Number Button: = BUTTONS; 


xl[Number_ Button]: = 0; x2[Number Button]}:* 0; 9% : 
end; : . zs, : ' 


“ 


( FOIOROIGIOIOIID I IOIDIOIIOIOIOI IOI ORI IIR IORI ROTATOR IOA DTA AISI IIIT T RIAD 


» 
Procedure RemoveButton; 
var 

INDEX=stinteger; 
begin 
for [NDEX:= First Button ta Last Button do: 

begin 

x1 [INDEX }: = 0; x2[INOEX ]: = 0; . 

end; , , : , on . 

end; — / ‘5 7, 


t é 
(OR GHOIRICIOIOIOIOIOR GIOIA IOIDIOIOIOIDIOIOISIOILIOIDIOIDIOIDALALIOIDAL IOI IUICIORDIOIDIDITIDIOIOIOICIOIOIDIDIDIO IIIT HORTON ) 
e 
Procedure WhiteButton; : 
var : ‘ + 


INDEX, [xl, x2, yl, fy2: integer; 


begin 
for INDEX: 2 First Button to Last “Bukton@aa 
begin 
Txl: 2X1 INDEX +1; [x2: 2X2 INDEX -1 
Tyl: =YLL INDEX j+1; -fy2:2¥2] [NDEX |- 
if (INDEX<>Current [team) then 
WhiteAraa(Ixl, tal, Ix2, tye 
SELECTED[ [NOEX J: 2 0; 
ands 
end: 


(RRR ICICI OIEICICICALIOIHCIICIADIORDIGHOICIORLIICIICADICRGALAC IE ROI ACIOICIACIOI ACIDE CIDICACICI A IGICIOA ACL HOI II) 
4 ; ; U 


{Peeceduce ToavectRittans 


Ix, Ie2, Tyl, [y2: integer; 


begin 
Tyl:=¥1(Number Button j+l; I[y2: 2¥2fNumber Sutton ]-1; 
Ixl: =X1{Number Button +1; Ix2: 2X2[Number “Button ~l; 
(** InvertArea(Ixi, Iyi, 1x2, Ty2); **} 

and; 


{ CIO IORCHOIO IODC ROIDIOIOIOID RRA IOI IODA IO IORI RTO ITT TOS AI IO ITOH ITOH ATTY 


Procedure AAddButton; * 


bagin 

if (Number Button > ABUTTONS ) then 
Number Sutton: = ABUTTONS; 

if (Number Button > ATopButton) then 
ATopButten: = Number: Button; 


Axl [Number Button ]: = xxl; Ax2 Nuabar Button]: * xy 
Ayl{ Number Button := yyl; Ay2[Number” “Button j: @ yue; 
MakeBam( xxi, yyl, x*2, yy2 ); 

and; 


(CRAIC SIOICICIOIOISIEIDIOIOIOIIORRORIOIDIOIOIDIOIDICIOIOR TORII AE IOI IOI IO IIT I TAIT OST ATID IT AI IAA) 
Procedure AC learButtons; 
{ Clear any buttans in use } 
var 
INDEX: integer; 


hagin 
ATopButten: = 1; 
For [NDEX:= 1 to ABUTTONS da 
begin 
AXL[ INDEX ]: = 0; AX2[ INDEX]: * 0; 
end; . 
and; 


ees eee eo re ED 


Procedure ASelectButtan; 
var 
INDEX, Current, Iul, [x2, [yl, Ty2: integer; 


Pracedurce Highlight; 
( Highlight any buttons uiies } 


INDEX: integer; 


begin 
‘Current: 2 0; 


(See if aver any buttons} wf 
INDEX: = 1; 
repeat hee , 
if (MX>AX1[ INDEX ]) and (MX<AX2[( INDEX ]) then 
bagin 
if yada Sucre and (MY<AY2[INDEX]) then 
Current: = INDEX; 
and; a . 
INDEX: INDEX+1; : a 
until (Current<>0) or _CINDEX>ATapButtan ); 


{If not aver any dean then turn off all highlights 
if UES 0) then 


begin ; 
wWor INDEX: 2 1 to ATopButtan do 
begin 
if CESEE EET ONES 122) then 
begin i 
Imxl: sAXi( INDEX ]J+1; [2: sAX2[ INDEX }]-1; 
Tyl: sAYL{ INDEX }*i; Ly2: sAV2] INDEX |~1 
InvertAr@a(Ixl, Iyl, Ix2, [y2 ); 
ASELECTEO[ INDEX }: ™ Og 
end; ty ; ‘ 
end: : a 
and a 
else 
begin r 
if (ASELECTED[ Current ]20) then 7 
begin 
Ixl: =AX1fCurrene J*+ly: Ie2: =Ax2f Current ]-1; 
ae eavateu une +1; [y2r2Av2 Seine Se 
Inver tArea(Ixl, [yl,Ix«2, [y2 ); 
ASELECTED(Current }:2 1; : ; 
end; : Bs _ : 
and; ‘ : 
and; 


Procedure Clearcl ight; 
var 


INDEX, fel, Ia2,1yl,Ty2: integer; eats ant ge. a ee 
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bagin 
far INDEX:= 1 to ATapButton do 
begin 
if ( ASELECTED[ INDEX ]<20 ) then 
begin an 
Ixd: =AX1[ INDEX ]#1; Im2: ©AX2[ INDEX ]-1; 
Tyls 2AY1[ INDEX +2; Ly2: #AY2[ INDEX ]-1; 
Inver tArea(Ixi, Iyl, x2, Iy2 ); 
ASELECTED[ INDEX ]: = 0; 
end; 
end: 
end: . 


begin 
For INOEX:= 1 to ATopButtan da 
ASELECTED[ INDEX J: = 0; 


repeat 7 
EVENT: = KeyBdEvent (FALSE, F FALSE,KEY); (Flush que} 
until mot(EVENT ); 


ArrowMouse; 

Item: = 0; 

repeat 

GOTBUTTON: = FALSE; 

repeat : ; . 
EVENT: = KeyBdEvent(FALSE, TRUE, KEY); (Get button dawn} 
GOTBUTTON: = (MBUTTON = KEY. key ); 

until GOTBUTTON; 


GOTBUTTON: = FALSE; 
repeat 
MauseLocat ion( MX, MY ); 
Highlight; 
EVENT: = KeyBdEvent (FALSE, FALSE,KEY); (Get buttan up} 
if EVENT then 
begin 
if (ord(KEY. ascii )#1) then 
GOTBUTTON: « (MBUTTON = KEY. kay ); 
and; 
until GOTBUTTON; 


for INDEX:= 1 to ATopButtan da 
if (ASELECTEO[ INDEX ]<>0) then 
Item: 2 INDEX; 


if (Item=0) then 

ClearLight; 

‘until (Item<>0); 

Currant Item:= Item; » ; : : 

HourG lass; / . & . 
and; ; 


Alert screen.  } 
procedure ALERT; 

Canst 

X_Up_Lefe a 45; - 
Y _Up “Left = SO; : : 2 


var 


Size, Index, AAxl, Axl, AAy1, Ayl, AAy2, Ay2, Item: integer; 
Linel,j,ine2, Line3, Line4; string[ 45 ]3 


begin 
Linel: = ' ‘; Lime2:2 ° "; Linme3:2 ' *; Lined4:3 ' |; 


Size: = langth(Maint ine ); 

if (Size<46) then ? 
Linel: = copy(MainLine, 1, Size) 

else if (Size<91) then 


begin # 
Linel: = copy(MainLine, 1, 45 ); 
Size:= bee - 45; - 
Lane2: =. capy(Mainline, 46, Size); - 
and 
alse if (Size<136) then 
begin a 


Linel: = copy(MainLina, 1, 45 5 

Size:= Size ~ 90; 

Line2: = copy(Ma inline, 46, 45); . . ‘ 
Line3:= copy(Mainline, 91, Size ); 2 


and 
else 
begin 
Linel: = copy( Maint ine, 1, 45); 
Sizea:= Size - 135; : 
Line2: ‘copy(Mainline, 46, 45); 


Line3:= copy(MainLine, 91, 45); 
Loumad: 2 capy( Main. ina. 136, Size): 


“oe 


Ai 


P omenmmuame 


ee RR RE A CC CL CL NL ee ‘“ 


end; 
CursorHide; 


AC learButtans; 
PSaveAlert; 
WhiteArea(X_Up Left, ¥ _Up “Left, x Up. Left+630, Y_Up “LeFesi10}; 
MakeBax(X_Up | Left,Y _Up Left, X _Up. _Lefe*630, Up _Lafe+i10 ); 
AAddButton(1, 7x _Up_! Left+s4s, Y Up Ceft+t0o, x _UB_| Left+*620, ¥ Up _Laft+2s ); 
TypaText(X Up _Ueft+S56, Y_Up Cefte1S, ‘Continue’ i 
AAddButton(2, x _Up_| Left+s45, ¥ _Us “Leaf eras, x iP 3 Lefe+620, Y_Up_Left+100 ); 
TypeText(X Up Ceft+S62, Y_Up | Caft+90, “Cancel' 
tooateceera Up | “Left+40,Y _Up _Ceft+50, ' STOP' 
InvertArea(X | Up _ Left+35,Y _Up _! Lefer30, X Up | Lere+9s, Y Up: Left+8d ); 
Axl: = X_Up Lefe+34; Ayl:=  Y_Up Lefee3i; Ay2i= Y _Up_. bafts79 
AAx1: =X “Up “Leaf t+96; AAyl: = Agl; AAy2:2 Ay2; 
for Index:= 1 to 10 do 
begin ; 

VL ine(Axul,Ayl,Ay2); Amli= Awt-1; 

Weel i ani ae 3 Auli And-1; 

Ayl:2 Ayl+1; Ay2: 7 Ay2-1; 

VL in@(AAm1, AAg1, AAy2 ); AAwl: = AAnl +); 

VL ine Ti aati Ante AAxi: a AAxi+l; | 

AAyl: = AAyl+1; AAy2:% AAy2~-1; 

and; 

TypeText(X Up Left+162,Y _Up Left+2Q, LINE] ); 
TypeText(X “Up “Left+162, Y “Up “Left+30, LINE2 ); 
TypeText(X “Up “Left+162,Y “Up _ “Left+*40, LINES ); 
TypeText(X Up “Left+162, Y “Up “Laft+s0, LINE 4 ; 


TypeText(X ~Up “Left+162, Y ~Up “Left+80, ‘To procead with the tests, click Cont inue. F 


TypaText(X “Up “Left+162, Y “Up “Left+90,'To cancel the tests, click Cancel, *): 
CursorDisplay; 

ASe lectButtan(AErrar ); 

Cur soarHidae; 

PRESTOREALERT; 

CursoarDisp lay; 

and; 


END. 


@ 


3 
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: Edit Date: 07/14/83 


File: RBASIC. ASM. TEXT 
Funct ion: Assembly graphics reutings, called by PASCAL ‘unit BASICS or 
directly from the Boot ROM. , 


Input Parameters: 
Refer ta Funetion to be called. 
Output Parameters: 
Refer to functian to be called. 


Use: This file is to be used as an extension of PASCAL ta provide 
graphic features from LISA PASCAL. It is ta be assembled and 
linked to the PASCAL program slong with the unit BASICS. | 


. PROC JUMPTASLE, 0 
ref OeaskTop, HLINE, VLINE, ALINE, ASquared Box 
.ref  . AWhite Box, AB lack _Box, AGrey | Box, ALGrey Box, AInvert Box 


ref Paint String, Paint Ch, AS ize “String, AOraw_ Integer, Ar aw Hex 
ref ADr aw “LHex, AFolder, > AD ialag, Alcon _| Oraw 
jmp DeskTop 

jmp HLINE 

jmp VLINE 

jmp ALINE 

jmp ASquared 8ax 

jmp AWh ite Box 

jmp AB lack Box 

jmp _ AGrey | Box 

jmp ALGrey | Box 

jmp AInvert Box 

jmp Paint String 

jmp Paint Ch 

jmp AS ize String 

jmp ADraw Integer 

jmp ADraw Hex 

jmp AOraw_LHex 7 
jmp AFo lder 

jmp ADialog : 

jmp Alcon _Oraw . . 


Pererrr rT tT tTitreeererert+ Tre PT rir rTrerrrr YT trerrrererrrrerrrrrrr ett rire rere. ¢) 
PeePE rr TrrerT rT TPE PEPrreeeirerrrerrrrrerrrrirrererrrrrrererererirrrrrrr i rere ry | 


Es 


. PROC RBASIC, 0 / 
.def DeskTop, HLINE, VLINE, ALINE, ASquered Box | 
. def Ath ite Box, AB lack Box, AGrey _Bex, ALGrey | Box, AInvert _Box 
.def Paint _Str ing, Paint fh, AS ize, “String, ADraw_ Integer, ADr aw Hex 
: .def ADraw_LHex, AFolder, rAD ialog, Alcan Draw 
egal ;Make legel X value j ; 
a4 = x value to test and make legal : ; ; 


called directly from assembly *‘ 


mavem, | dO-dl/al;-(SP) ; seve required regs: 


mave. 1 a4, d0 iX to working register 

and. | #sOQ0003FF, dO aa, Make legal for gross errors, $2cf is 719. 

move.w #719,d1 ;Get right allowed edge 

qnp.w d1,dQ- ;To right of allowed edge?-. 

bmi @l ;+-sna, let go as is : 

move.w di,dO s+.syes, make legal 

move. I dO, a4 ‘ 

mavem. | (SP )+,d0-dl/al ‘pee. estore the reg 

ets ; 
Perret TrrTTTT TT rTIiTTTIrrrrtrirriitririrerreeerereeorree Lie erreee cece 
egal Make legal Y value 


a4 = y value ta test and make legal 
called directly from assembly 


mavem. | dO-dl/al.-(SP) ; save required regs 


mave. | a4,dQ ;Y¥ to warking register 

and. | #sOO0001FF, dO iy. Make legal for gross errors 

mave.w %363,d1 ;Get battom allowed edge 

cmp. w 41,d0 ;Below allawed edge? 

ba i 1 y+.-m0, let’ go as is - ‘ 

move. Ww di, dd j. +. yes, make vast 
a1 mave. 1 dQ, a4 ; 7 Pee 

movem. | (SP j*, dQ- “dial te..restore the rag 

rts fen oa ES Ses. od 
Naess clashes aha eee esas 2as aaasesgaenccezssstes| 

: . ; Lag i 
Osel tos , : Oraw @ hlank desktop : 


ce reine nner menue ammeter mene me Tn teem ranean 
i  R 
i a 


Refer to the Functions used For the correct PASCAL external declaration. 


SRSA AM AT AAAAARAASTARCAVATASALESA AA aAATAASTGSAAASATTAAAARSE SHEA ATA RRACAeARABA eA 


Name: DESKTOP 


Procedure DeskTop; a 


Funetion: Draws a blank desktop 


MOVE. L (SP )*, AO ; Save return address 


mavem, | d0-d7/a0-a6, -(sp) ; Save everyone 


MOVE.W #80,-(SP) pul: 

MOVE.W #20, -(SP) 7 yl . 

MOVE.W #719, -(SP 3x2 

MOVE. W pages se 342 

bsr AGrey Bax 

MOVE.W #0, -(SP pul 

MOVE.W #0, -(SP iy ae 8 oe 
MOVE.W #719, -(SP) eC oo : eS 
MOVE.W #20,-(SP) - j4y2- ernst te 
bsr Alihite Box 

move.w #20, -(sp) plyl 

mave.w #0, -(sp) 7X1 ; 

move.w #719, -(sp) 1X2 

bsr -HLine pHLine(Lyl, Xi, x2) 


movem, | ts iat al pRestora the wor id 


jmp ad) 


: SRAORAAT SA SMART AURA AAASLALAARSRVARKKRABRANALSARRAAOCBAAGSTAARLAAAAARKATsAt+uzsa4s 


HLINE ; Draw « horizontal line. 
Name: HLINE : 
Procedure HLine(Y1, X1,X2: integer ); 


Xs 


, 
, 
+ 
; Function: Draws a line, haorz 
3 
, 


MOVE. L SP )+, AO ; save return address 


MOVE.W (SP )+,d2 a2 
MOVE.W (SP }+, d2 px 
MOVE.W (SP )+,dO pyl 


mavem. | d0-d7/a0-a6,-(sp) ;Save averyone . 


Draw a horizontal line. 
dQ = y value, yl 
di = starting x value, xl 
d2 = ending x value, x2 


(we we ee wee we we 


move. | $160, a5 
mava.w dO, a4 ; : 
bsr YLegal ‘ / . ‘ . : " 
move. 1 a4,d0 3¥1 is now legal ~ 

move.w dil, a4 ; 


;Get video page address 


‘ bsr XLegal F 
mave. 1 a4,d1 . 9X1 is now lagal * 
move.w d2,a4 oo 
bsr XLegal 


move. | <a4,d2 
cmp. w di, d2 
bel al os 
meve.w di,d4 ‘ ;Swep 
move.w d2,dl 

‘ move.w d4,d2 


3X2 is now legal . 1 


a 


al my lu #90, d0 ; ;Find starting cow address, in a5 
adda dO, aS . geue. YL*90 + Video Page start 
elr. i d5 ; 
elr. 1 d3 pimit. Pixel counter 
‘a2 elr. | dO ;Init Pixel per byte counter 
_ move.b 8$07,d0 
a3 emp.w di,d3 yin window on left side? i. ™ 
bmi a4 . : a . . 
cmp. wi d3,d2 In window on-right side? 
bri a4 * 
bset dO, (aS) ;Set bit since in, window 
a4 sub. w #1,d0 1Go to next bit in the byte 


add.w  #1,d3 
cmp. w #0, d0 


pes. Mext pixel count 
;..-End of this byte? 


bmi 35 Re fea seca yes, go ta next byte 
bra 33 tpeeee. 0, Cantinue in byte 

as adda #1,a5 ;Go to next byte, 

add. w #1,d5 peo. igerement byte counter - 

cmp. w #90,d5 gee. ato and of row? | 
hne 92 2 j...8, continue 

‘ 7 ; 
mavem. | (sp }+,d0+d7/a0-a6 ;Restore the world 
jmp (30). be VA. ey =. SP gg | Whe 

, SES Rseaneseastaesssesesesdeeszadevne|d s¥ucaeecassesecerecdesacacaszadaséaduazse, 


? 


VLINE 


; Oraw a vertical line,” ~ 


= 


Name: VLINE 


me we ee ee we me 


SP )+, AO 


Procedure VLine(X1, Y1,¥2: integer ); EXTERNAL; 


Function: Oraws a line, vertical 


ssave retuen address 


MOVE. L 

MOVE.W (SP )+, d2 iy2 
MOVE.W (SP )+, dl yl 
MOVE. W it Sa px 


mes ee ee ee ee 


move. | 
move. w 
bsr 
move. | 
mave, Ww 
bsr 
move. | 
move. w 
bsr 
mave, | 
emp. w 
bpl 
move, w 
move. w 
move. w 


al move. | 
mu lu 
adda 
mu lu 
adda 


divs 
mave. Ww 
swap 
and. | 
not.b 
and, | 


@2 cmp, | 
bmi 
mave. | 
adda 
bsat 
adda 
bra 


@10 movem, | 


jmp 


movem. 1 d0-d7/a0-a6,-(2p) es 


Draw a vertical line. 
dO = x value 
dl = starting y value 
d2 = ending y value 


$160, aS 
dO, a4 
XLeqal 
a4, dQ 
d1,a4 
YLegal 
a4,d1 


_d2,a4 


Ylegal 
a4,d2 
di, d2 
@l 

dil, d4 
d2,d1 
d4,d2 


a5, a4 
#90,d1 


_di,aS 


a 


1Gae video page addreas 
7X1 ts now legal 
'SYL is now legal 
:Y2 is now legal 


; Swap 


;Find starting row address, in a3 
pees find ending row address, in a4 
;F ind calumn affsat 

3+-- get quotient 

pe+- get remainder 


“4 


3To last row yet? 
pees yes, axit, 


;Set bit 
37Go to next row 


/ 


~d7 /a0-a6 ;Restore the world 


PTT TT TITTT ECCT ITT TTT TTE Titel i sie PT i ter erTrrTrT SSE PreVeErerry rr ery Er rere ry | 


Name: ALINE 


a 


Precadure ALine(X1,Y 


* : a * toe : ‘ ’ 
: 3 


. é 4 . * 


1, X2, Y2, Line Width: integer ); 


' » 
; Function: Oraws a line, horz or vertical, else does nothing. 
; « ; Pee . 
MOVE. L SP )+, AO ; fave return address 
MOVE.W (SP )+, A2 plLine blidth 
MOVE. W SP )+, d2 py2 
MOVE. W ue a pu 
MOVE.W (SP )+, dl gl os 
MOVE.W (SP )+*, dO sah pe . ae « 


move. Ww 
and. w 
beq 


MOVE. tut 
move. Ww 
move. w 
Mave. WwW 


move. w 


em@. w 
bre 


move. w 
move. w 
move, 


movem. | dO-d7/a0-a6, -(sp) - 


a2,d3 
atoorf,d 
3S 


dO,d4 
d1,d5 
al, d6 
d2,d7 


#1,d3 
d4,d6 
92 


aac.) 
d5,-(se) 
7,~(sp) 


‘;Line Width check 
3 ;Max allowed is 255 for safety. 


.;Oeing Lina: = 1 


a3 sf (X1=x2) then 
i begin 


7 Pepeat 
- pbxl a ee 
oe¥t ; : . : ¥ : _f 

+2 Sigg BU ee 7 te 


1 ayo A 


Le rrmeaaememeenemen ner iemecemeceieimentmeencemintnenreieemmenemiononenmnimsmmmseiemmenscmmemmnteninmec emcee cam mmc eeu onto te once cere ce ranean OCcrTTONTC CeO ca cic one cS cesT eS eneres tient 


rage { 
: ‘ . : —~ a es sk ol = 


bsr Vine jVLina(Lxl, YL, ¥2); me 
add.w #1,d4 4 bul:e Lxl*1;_ * 
sub.w #1,d3 .  ..¢ Doing Line: = Doing | Line+t 
emp.w #0, d3 : 
bne @l puntil (Daing LinesLine Width) 
bra @5 7 Sot ; i ; 
cmp.w 5, d7  selse if (Y12Y¥2) then 
bne @4 4 begin 

_ phepeat 
move.w d5,-(sp plyl 
move.w d4,-(sp ;X1 
move.w d6,-(sp 4X2 
bsr HL ine gH ine(Lyl, X1,X2) 
add.w #1, d5  glyh)* Lylel 
sub. w #1,d3 ;Daing Line: 2 Doing Line+l 
cmp. w #0,d3 - nd 38 Ss 
bne @3 (oo panedl (Dolng_Linest ine Width ) 
bra @5S ; - I : 

tolse 

move.w 5, d0 
mave.w dO, -(sp) “ophyl 
move.w #10, d0 ; 
move.w. dQ,-(sp) ee 
mave.w #8600, d0 . 
mave.w dO, ~-(sp) 32 
bsr HL ine iHLine(S,10,600); (Error result} 


mavem. 1 (sp )+, d0-d7/a0-a6 ;Restore the world 
jmp (a0 


. APRS SSTACRAACKA AAT ASTAARSLABSLASBaAVsKKeKansz daxwarenaeheaesazsezasasas BEBRALSKAKRARARAAAS 
aSquandd. Box 
Name: “ASquared | Box 

Pracedure ASquared_Box(X1, Y1, X2, Y2, Line width: integer ); 


se me ee ee we 


Function: Draw a delta line to new position from current position. 


MOVE.L (SP )+,A0 j save return address 
MOVE.W (SP )+, al ;Line Width 

MOVE.W (SP )+, a2 +y2 

MOVE. W Sei ao 7x2 

MOVE.W (SP )+,d1. syl 

MOVE. W ple ao yea 


mavem. | dO-d7/a0-a6, -(s9) 


move.w dQ0,d4 
move.w di,d5 

: move.w d2,d6 
mova.w a2,d7 
mave.w al,a4 
MOVE. Wo d4, -(SP pul. : 
MOVE.W d5,-(SP syl aes aes 
MOVE.W 4d6,-(SP pM 2 ae 
MOVE.W dS, -(SP py 
MOVE.W a4,-(SP ;Line Width ma 
bsr AL ine ;Upper-left ta uppar- right 
MOVE.W d4,-(SP gal 
MOVE.W d7,-(SP +42 
MOVE.W d6,-{SP 3 ud 
MOVE.W d7,-(SP sy2 
MOVE.W a4, -(SP ;Line Width 
bsr AL ine pUpper-right to Lawer-right 
MOVE.W d4,-(SP) jl f . 7 
MOVE.W dS, -(SP) py. 
MOVE.W d4, -(SP) pul 
MOVE.W d7,-(SP) ry2 
MOVE.W ad,-(SP) © ;Line Width ‘é 
usr ALine ; Lower - right to Lower- Lert ‘ 
MOVE.W d6,-(SP) ye ° : 
MOVE.W d5,-(SP) ryl ; 
MOVE.W d6,-({SP) pz i 
MOVE.W d7,-(SP) ;y2 
MOVE.W a4,-(SP) jLinwe Width 
tse 4Line ; jLower- left, to Upper-lefe 
mavem. | (sp )+, d0- ~d7 /a0- a6 jReatare che war Id> 
imp 30) 

: OPP EPEC Orr reer irre errrrrr rire trirrerererrr rr errr err errr errr err errr 
alive Hox - ; “ : ht, tag 7 or 


; Name: AwWhite _Box mn ia Lee a 


Pracedure AWhite_Box(Xi, Yi, X2,Y2: integer ); 


; 
; - 
; Function: Fill an area with white. 
move.w #$0000, dO 7 
move.w $0000, di 
bra FillAres 
Pere rerrrrrrrrrTrTTi TTT Titi tT Tritt Tri iti itt LE P 
’ 
ABlack Bax mn 
; Name: ABlack Bax 
A Pracedure ABlack Box( Xi, Y1,X2,Y2: integer ); 
Funetion: Fill an aren with black 
move.w #S00FF, dd 
mave.w ¥#SOO0fFF, di 
bra FillAres 
PTT TTT TTT TITT TTT Ti Trrrrrr li rirt rr let LLL 
AGrey Box 
; Name: AGrey Box 
: Procedure AGrey Bon({X1,Y1, X2, Y2: integer ); 
Function: Fill an area with grey. 
move.w #£00aa, dO 
mave.w $0055, dl 
bra FillArea 
: TPT TT TTITITICTITICILI TTT TTIITirliliLrirerirertirtirieererrriitt titre) 
ALGrey Blox 
; Name: ALGrey Box . 
: Procedure ALGrey Box(X1, ¥1, X2, 72: integer ); 
; Function: Draw a delta line to new position fram current positian.. 
move.w #*$Q0cc, dO 
move.w #$0033,d1 * 
bra FillArea 
: SSSRTVSVRARSALLATAIS ATL AATAAKAVALARBCAKUoSwss sus ecseeswzaw 
H 
FillArea ;Fille an. area 
3 Name: FillArea 
i . 
lea FlMask, al i : " 
move.w d0O,(al 
lea F2Mask, al 
mave.w di,(al) 
MOVE. (SP )+,A0 jsave return address 
MOVE. W SP )+, al iy2 
MOVE.W "(SP )*,d1 yu2 - 
MOVE. W SP )+,d2 — sgl eae 
MOVE. W SP )+, dQ os oe ; 
movem. | aQ-a6/d0-d7, -(SP ) ;save raquired regs » 
move. | $160, 385 ;Get video page 
mave.w al,d3 : ;y2 
fhave.w dO, a4 
bsr XLegal 
_mave. 1 a4,d0 pul 
move.w dl,a4 : 
bsr XLegal 
mave. | a4,dl ee gu2 
move.w d2,a4 © 
/ e 
bsr YLegal ; 
move. | a4,dz2 : ;yl 
mave.w d3,a4 : : = 
bsr YLegal 4a %3 - 
mave. | a4,d3 : 7y2 : 
cmp.w dO,dl ;See if xl<x2 + 
bol al , . ; : 
move.w d0,d4 i. " o3...Swap ; * 
mave.w dl,d0 ; i : 
vove.w d4,dl. is . 
al cmp. Ww d2,d43 , ;Sae aif yl<y2 
tpl 32 - és “ 
move.w d2,d4 }... Quwap 
nove.w. d3,d2 ; 
move.w d4,d3 
2 clrol d4 . : : : 
move,w dO,d4° - - . -° “4Xt, find lst part byte offsec . 
divs . #3,d4 , Hs > ¢e¢l/8= which byte to start in ; 
ele. l d7 ; se oS 4 : ae ; 5. 


move.w d4,d7 Stare offset 5 ae a Ta ae : , ee 


te 


swap d4 
and. 1 #$f,d4 3 ;Get remainder, for which bit 
lea StartByte, al : 
adda d4,al_ | s a a 
move.b (al),d6 | 3Get starting byte mask - 
clr. d4 7 
move.w d1,d4 7X2, Find 2nd part byte offset 
divs 88,04 :x2/8% which byte ta end in 
elr. i d5§ : < — 3 ) 
move.w d4,d5 
swap d4 ; 
and. 1 asf, d4 Get remainder far which bit. 
lea EndByte, al . 
adda d4, al : I 
mave.b (al),d4 ' 4Get ending byte mask 
move. 1 d2,d0 ne 
mu lu #90, d0 iFind starting row.address, in aS 
adda dO, aS : 
sub.w d2,d3 ;yl-y2" number of rows ta do 


mave.w 4d3,d2 
add. w #1,d2 


lea F2Mask, al 
move.w (al), d3 
move.w d3,a2 

lea FiMask, al 
mave.w (al), d3 
move.w d3,al 


move.w d5,d3 , ;Get # bytes to do 


sub.w d7,d3 ;Only one byte? 
beq @6 gj. yes 


sub. w #1,d3 


Main clear loop 


cmp. w #0,d2 ;All rows done? 
beq @li , pees YOS, @xit 
mave.w al,a4 ;Swap 55 with ae 


move.w a2,al 
move.w a4,a2 


move. 1 aS,a3 


adda d7,a3 -  - First byte 

mave.b (a3),d0 j+..get original 
and.b d6,d0 pa ..mask 

mava.b dO, (a3) 7... Paplaca: 

nat. b — d6 ce Y) : 
move.w a2,dQ : ;Get ‘gray pattern 
and. 6 d6,d0 " ;Mask it 
not. d6 —- 

or.b (a3), dO ;Placa in memory 
move.b eck 

move. 1 aS, a3 

adda d5, a3 . jLast byte. 

mave.b (a3), d0 fee. gat original 
and.b d4,d0 3 , t...mask 

move.b dO, (a3) ji.. replace 

not. 6 d4 ; 
move.w a4,dQ 7Get gray pattern 
and. b d4,d0 ;Mask it 

not. b d4 : 

ar.b rapt sPlace in memory 
mave.b dQ, (a3) 

clrwl di ; : 

move.w d3,dl ;B8yte counter 
move. 1 a5, a3 , m 
adda d7,a3 ; iFirse byte, 

adda #1,a3 : ; ; second byte 

emp. w #0,d1 {At and? 

beq 942 ; : 
movea.w a2,dQ :Mask for this byte * 
mave.b dQ, (a3)}+ i... place mask 7 
sub. w tli dl « ;Next byte 

ora. 34 ee it ae 


mave.w a2, dQ ee 
and.t d6, 40 i - 


ar.b (a3), dO 7 7 om 
move.b- dO, (a3) a, 3 

adda £90,405 > 3 ,Ga to next row 

sub.w HL, d2 (3: 7 Qecremant row counter 
bra» a3 reas! a 7 vs 


Fa 


and.b d6,d4 ; : *. 7Get mask For femainding. bits 


me nS RR en aoe ee RN RRR AMZ Rte eRe one Rate Rh OR amine inp 


Pe re en te te A Nem ARTE TERE AI Co RY RR ee ome anne E 


: Main clear leop © ; 
o7 cmp. w #0,d2 : ;Rew done? 
beq @il je. yes, exit - 
move. | a5, a3 : : 
; adda d7, a3 ~ iFirse byte : ; ; 
movea,.b (a3), d0-. jae. get original — es 
and.b d4,d0 je. mask +e 
move.b d0,(a3) ;...replace 
@e adda #90, a5 ;Go ta next row , 
sub.w #1,d2., : ;Decrement row counter 
bra @7 mt? 
all movem. 1 (SP )+, aQ-a6 /dO-d7 j--.restore the reg 
imp (a0) 
StartByte .byte $00, $80, $c0, $a0, $FO, $F8, $e, Se 
EndByte .byte $7F,$3F,$1F, SOF, $07, $03, $01, $00 
: BSatcenansenesenrres sense rake A ERAS EeeRAhanS Reade ndaeaeedasetekieuanssee 
AInvert_Box 
Name: Alnvert Box 


Procedure Alnvart_Box(X1, ¥1,X2, Y2: integer); 


Funetion: Invert an area. 


BA fae j save raturn address 


MOVE. 

MOVE. SP )+, al sy2 

MOVE. SP )+, dl 3u2 

MOVE. SP )*, d2 py . 
MOVE. SP )+, dO 3ul 

mavem. | aQ-a6/d0-d7, -(SP) ;save requined regz 
move.w al,d3 : . 
move. | $160, a5 

move.w dQ, a4 


fSELair 


bsr XLegal 

move. | a4,d0 7x1 

mave.w di, a4 

bsr XLagal ‘ 
move. | a4,dl1 3;x*2 

move.w d2,a4 

bsr Ylegal 

move. 1 a4,d2 pyl 

move.w d3,a4 
bsr Ylegal 
mave. 1 a4,d3 iy 
cmp. w dQ,di , 3S 
bp l @l : 
move.w 4d0,d4 3... Swap 
mave.w d1,d0 , : 


oe if xl<x2 


‘ move,w d4,dl ; 
@1 cmp. w d2,d3 sSee if yl<y2 
op l @2 
move.w 4d2,d4 }...Swap 
mave.w “d3,d2 . *:, 
move.w 44,d3 ; % 


a2 move. | aS,a4 € 
move. | d2,d5 : 
ru lu #90, d5 ;Find starting row address, in a5 
adda dS, aS . 
fu lu #90, d3 3... Find ending rdw address, in a4 
adda d3, a4 , 


‘move.w dl,d4 : Get number of columns to invert - 
sub. w dd, d4 : 
add. w t1,d4 


divs #8, d0 {Find column of fset 
move.w d0,d2 aoe: yee. ge@t quotient: 


and. | #$7,d0 . g..- gt remainder 


and. | #$7,d0 
mave.w dQ, d7 


; Main clear leop . A 

i3 cmp. | aS, a4 “;To last row yet? 
bmi all 7 i... yes, exit 
move. | a5, a3 


je 


adda. d2, a3 Ped we 

elr.l ‘d7 : : ;(nit Pixel per byte counter 
mave.b dQ, d7 , 
elr.l d5 


bra  . 36 


4 . clr. id d7 
mave.b &$07,d7—- 


a6 bchg d7, (a3) ; Change bit since in window 
add. w #1,d5 : bee ext pixel count 
cmp. w d4,d5 oe 
beq @10 ! 
sub. w #1,d7 ; ' 7Ga to next bit in the byte 
bmi @7 . ~ ba eee es YOR, go to next byte 
bra a6 ; Peeeees M0, COMtinue in byt 
@7 adda #1, a3 ;Go to mext byte 
bra @4 . 
@10 adda #90, a5 7;Ga to mext row 
bra @3 : ‘ ; 
@li movem. 1 (SP )+, aQ-a6/d0-d7 j..-restore the reg 
jmp oe ; : oe 
POP Pe rere rrrerrrrTiT Trt TTT TTT TTT LTT LT eee 
SETCRSR ;Change x,y to page address 


Name: SETCRSR 


; Function: Finds address in video page by x1 and yl coordinates. s 
; Callable fram assembly lenguage only by another procedure, 
; Input Parameters: 
; d& = xi 
; d7 = yl 
; Output Parameters: 
7 al = address 
move. 1 d0,-(sp) ;Save register 
move. 1 $160, al ;Start at top of page 
elr.l do ;.+.C¢lear for use 
move.w 4d7,d0 Get row coordinate 
mulu  — #90, dO pj... compute byte of Fset 
adda dO, al ;...0dd in real screen address 
elr.l do : 
move.w 4d6,d0 ;Get column coordinate 
divs #8, d0 sFind column offset : 
and. | asrrrfr, do eee gut quotient ; 
adda d0, al j.«,add in calumn offset 
mu Lu #8, d0 — 
mave.w d0O,d6 ;Send back column used 
move. (sp )+,d0 ;Restore register 
rts 
j sdececaneecensccsecssacenarseseneedatnsadasenenedeatacdecceneseaesesseouasais 
Paint String _ Print text string on screan 


Name: Paint String 


Procedure Paint Str ing(X1, Yi: integer; var DStr: Ser ing285 ); 


; Fumetian: Oraw text on screen. 
; Input Parameters: : ° 
; xi = Horzontial pasition, 0-719 s, 
; yl = Starting y position, 0-359. 3 
H Ostr = string message ta paint... * 
; Output Paramaters: 
. None 
i“ a 
move. | a7 )+, a0 ;Save return address 
move, | a7 )*,a2 ;Get TITLE address 
move, w a7 )+, dl ;Gee yl 
move. Ww a7 }+, dO ;Gete xl 
movem. 1 dO-d7/a0-a6,~-(sp) ; Save the world 
move.w d0,d6 . Pi Ls 7 ‘ Tho 
move.w di,d7 '; Get video page address 
dsr SETCRSR x 8 
clr.w 3 
move.b (a2)+,d3 ;Get string langth x 
clr. l dl ;tnie character counter 
a1 clr. d2 i...¢lear far use 7 
mave.6 (a2 )+,d2 ;Get character ta display 
osr _ OSPVAL jdisplay it 
add.uw #t,dl oo “ . ‘ 
cmp. w d3,di ~ oN 
bne ‘al on oss by ade 
92 movem.L (sp )+, d0-d7/a0-a6 ;Restare register. 
jmp (a0) mu 


Requires character cade in d2, d5-is fant wanted, Al is screen location 

DSPVAL movem: | d2/a4, -(sp) . - Save the world Sake = ss iy 
and. 1 #$FF,d2. cae S ee : ; an 3 eee : 

sub.b 8$20,d2 - ¢Convert character code. far table index — 


aids gigh, ea geen cB SG Ain gee a mela a manent tiennon ait 8 + epiaigen gman at gate ree 


; 


nee ee es me we ee ee ee en ek wee ee ee 


’ 
' 
1 
’ 
' 
J 
s 


' 


bse SETCRSR 
a mave.w  #$30,d2 
bsr OSPVAL 


Isl] #3, d2 
lea FONTTABLE, a4 
adda d2,a4 


move. B A4)+*, (Al) ‘ “4 


move.B (A4)+,90(Al) 
mave.8 (A4)+,180(Al) ~ 
move. 8 A4 }*, 270( Al 
mave.8 A4)+, 360( Al 
move. 8 A4)+, 450(Al 
mave.B A4j+, S40( Al 
move. 8B A4 )+,630(Al 
adda #1,al 

movem.. (sp )+,d2/a4 

rts 


Paint Ch 


Name: Paine _Ch 


peas for 8 long enable 


;Get painter to character Fant. table 


Place character an screen 


;Bump cursor column. caardinate far next char 
; Restore register 


Pet rrererererrrittTrrrrrrrrrrirerrrrtr rrr rT TT iter rr ir Teter irre teers t 


;Print # character an screen. 


Procedure Paint _Ch(X1,Y1: integer; Ch: char ); 


Function: Draw character on screan,. Poe - 


Input Parameters: 
x1 = Horzantial position, 


0-719 


yl = Starting y positian, 0-359. 
Ch = character to paint. 
Output Parameters: 
None 
move. | a7 )+, a0 ;Save return address 
move. w a7 )+,d2 ;Get cheracter 
move. w a7 )+, dl ;Get yl 
move. w a7 )+, dO ;Get xl 


movem. | dO-d7/aQ-a6,-(sp) ; Save the wor ld 


move.w dQ, d6 
move.w dl,d7 
bsr SETCRSR 


;Get video page address 


bsr DSPVAL ;display it 


mavem. L st anal 
jmp aQ 


;Restore register 


. 


PEPE Sr eY Ve rrrrereePErerrrrrrrererrrrrirrrtPerrretrerrreer re Tiers reer 


AS ize String 


Name: ASize String 


| Procadure ASize _String(X1, Yi: ihewcers var Str: Str ing2SS; 


var SX1: integer ); 


Function: Calculate new X if string is printed, 


: move, | a7 )+, a0 ;Save return address 
move. | a7 )+,82 ;Get address of SX1 
move. | a7 )+,al ;Get addrease of string 
mave. w a7 )+, dl ;Get yl 
move.w “(a7 )+, dO ;Gat xl Bal to ‘ 


movem. | dO-d7/a0-a6,-(sp) ;Save the world 3 % 


clr.) d3 ¢ 
mave.b (al),d3 
mu lu #8,d03 


move.w d0,d6° 
mave.w dil, d7 
bsr SETCRSR 
add.u d3,d6 


move.w d6, (a2 


ry 


“ 


jLength of string 


;Get video page addrass 


;Send back new « value 


mavem. | d0-d7/a0-a6, -(3P) ;Save the world 2 : 
jmp (ad ) ‘ : 
BR seta teh ie ace See carn 


ZeraDigitaArea 


Requires dQ=xl, disyi, d3=number 


of digits 


mavem. | dOQ-d7/aQ-a6,-(sp) ;Save ane war ld 


move.w d0,d6. 
mave.w di,d7 


sub. ut #1,d3 
emp. w #0,d3 


bne 41 ’ 
movem.L (sp )*,dQ0- -d7/a0- a6 
ets 


;Get video page address 


* 


+ Zero. character 
;Clear area For new Humber 


; Restore register 


b 


bas Seyceenas Seal esyéewwsGusiedd tunes Sus ois san Wu vevenesss4seSasnestenes< 


ADraw Integer 
Nama: AOraw_ Integer 


Procedure ADraw Taveyeri, Yi: integer; Num, Digitte: integer; 


Funct ian: 
move. | a7 )+, 20 
move. wW a7 }*,d2 
move. w a7 )*, a2 
move. w a7 }+, al 
move. w a7 )+,d1 
mave. uw a7 )+,d0 


movem. | d0- 47/0006, -( a9) 


move.w d2,aS 

mave.w a2,d3 

move.w al,d4 

cmp. w #0, d3 

beq @100 

y 

move.w d0,d6 

mave.w dl,d7 

bsr SETCRSR 

@l move.w #$20,d2 

OSPVAL 
#1,d3 

emp. w #0,d3 

bne @1 

move.w a2,d3 

move.w dO, d6 

move.w dl,d?7 

bsr SETCRSR 

lea OIGITS, a6 

elr.l a6 )+ 

elr.w a6 

lea: OIGITS, a6 

clr. d7 

elr.l dé 

move.w d4,d6 

divs #10000, d6& 

beg a5 

move.b d6,1(a6) 

muls #10000, d6 

sub.w d6,d4_ 

cmp. uw #0, d7 

bne @5 


move.w #85,d7 


a5 elr.l d6 
a move.w 4d4,d6 
divs #1000, d6 
beq o6 
move.b d6, 2{ a6 ) 
mu ls “#1000, d6 
sub.w d6, d4. 
cmp. w #0,d7 
fne @6 ‘ 
move.w #4, d7 
i a6 elr.l dé 
i thove.w d4,d6 
divs #100, d6 
beq @7 
‘move.b d6, 3(a6 ) 
muls #100, d6 
sub. w d6,d4 
cmp. w #0, d7 
tne a7 
move.w #3,d7 
47 clr. | dé. 
move.w d4,d6 
divs #10, d6 
beq 8 
move.b d6, 4(a6) 
muls #10, d6 
sub. w d6,d4 
comp. w a0, d7 
bne 38 
move.w &2,d7 
clr. ti d6 
move.w 44, d6 
mavé.b d6,5(a6) 
cmp. w #0,d7™ 
bone - 39 
mave.w 


#1,d7 


: a Right _Juat ify: bod lean ); 
; Oraw integer on screen, POSITIVE integers: only. 


“. Save return address 


;Get Right Justify 
;Gekt Digits 

Cet integer 

Get yl 

7Get. xl 

;Save the world 


pRight Justify 


_yNumber of digits 


yNumber 


: $Get video page addrass 


; Space character 


sCleer ares for new number, to all spaces 


jNumber af digits 


' 3Get video page addrass 


iN 


sClwear to default of 0 


Get number 

;Check for Sth digit 
foe. One 

j--. save in table 


;5 ofgits’ 


;Check for 4th digit 
pa... none _ 
jew. save in table 


4 


= 


34 Digits 


iChaek. tor 3rd digit 
-none | 
save in table 


wf : a : . 
13. Digits 


a 


; Check far 2nd digit + 
jee. Mone | 


j...save in table 


72 Digits 


—y Always do at least one digit 
- ees SAVE IA baGila 


das Digit : ae 


eee ee ee 


aS, d0 
#0, d0 
@10 
d3, al 
#l,al 
@1i1 
d7, at 
#1 al 
d7,d3 
@12 
@13 


#$3F,d2 
DSPVAL 
#2,al 
#1,d3 
#0, d3 
@12 
@100 


LastODigit, a4 
d2 


(a4), d2 
#$30, d2 
DSPVAL 


#1, a4 


#2, al 
#1,d7 
#0, d7 
o14 


a0 


i, 


;Right justify? 
j-..ne e 7 


;Move to last digit 


;Overflaw area? 
p...yes, Fill with 277? 
$e. eN0, go da it 


3? cheracter 
;Wreite area to overflow value 


;Digit 


;Write number 


oye eee ;Restore register 


‘ ' 

7 SP SAGA SAS SR SSAS AS SASRAASTAAARAARAGARAARARARSOAALABRAAARSA BAN SAASAAABREARzAs 
ADraw Hax 

; Nama: ADraw Hex : 


? 
; Procedure ADraw_Hex(X1,Y1: integer; Num: integer ); 
' 


Function: Oraw.hex number an sereen., 


mave. | 
move. w 
mave.w 
move, w 
movem. 1 


lea 
move. | 
mave. | 
lea 


move. w 


a7 )+, a0 
a7 }*,d2 
a7 )+, dl 
a7 )+, dO 


; Save return address 


~Gat integer 


;Get yi 
;Get «i 


d0-d7/aQ-a6,-(sp) ;Save the world 


Digits, a6 
#0, (a6 }+ 
ao tae 
Digits, a6 


#4,d3 


yInit urea 


/ 


;Number of digits 


; Requires dO2x1, dizyl, d3=number of digits 


bsr 


Move. w 
move. w 


and. w. 
cor.w 
ror. w 
move.w 


« 
move. w 
and.w 
ror.w 
move. w 


mave.w 
and.w 
cor. Ww 
MOVE. Ls 


move. wW 
anid. w 
move. W. 


mave. Ww 
move. wW 
bsr 


lea 
move. w 
} o1 mave.w 
lea 
adda 
move.b 
amd. | 
Qsr ; 
add.w. 
emp. w 


ZeraDigitArea 


42, a7 


d2, d6 


#$F000, d6 
#8, d6 

#4, d6 

d6, (a6 )+ 


d7,d6 
#$OFO0, d6 
#8, d6 

d6, (a6 )+ 


d7,d6 
#SO0FO, dé 
#4, d6 

d6, (a6 )+ 


d7, d6 
#$000F, d6 
d6, (a6 + 


do, d6 
di, d7 
SETCRSR 


Digits, a6 
#0,d4 
(a6 +, d3 


HexDigits,aS - 


d3, a5 
(aS ), d2 
SSFF,d2 
DSPVAL. 
#i,d4 
a4,d4 


;Place Zeras in digit area 


;Save number fom 


~% 


;Gat highest digit ~ 
;Can only ratate 8 at a time 


;Get next digit 


;Get next,digit 


a 


;Gat last digit 


:Get video page address 


& 


Get hex digit 


bne 


2 movem. | 


jmp 


HexDigits 


ad 


(3p )*.d0-87 200-08. 


-Byte $41,$42,$43, $44, $45, $46 


’ 


i 
ADraw_LHex 
Name: 


Function: 


move. | 
move. l 
move. 
move. 


ADraw_ LHex 


a7 )+,.a0 
a7 )+,d2 
a7 )+,d1 
a7 +, dO 


ey 


Draw hex number an serm#en. 


jRestare registers 


Byte $30, $31, $32, $33, $34, $35, $36, $97, $38, 539 


’ 
; Pracedure ADraw_ LHex(X1, Yl: integer; Numi longint ); 


3; Save retuen address 
3Get sng integer 


7Get. yi 
7Get «1 


movem. | dO-d7/aQ- Lie, tena ;Seve the world. 


lea 
move. | 


move. | 


move. | 


move. | 
move. | 


and. 
ror. 
ror, 
ror. 
ror. 
move.b 


move. | 
and. 1 
ror. 1 
ror. 1 
ror. | 
move.b 


move. | 
and. 1 
cor. | 
ror. 1 
ror. 1 
move.b 


7 move. | 
and. | 
ror. | 
ror. | 
move.b 


move. | 
and.1 
rer. l 
ror. | 
qrove.b 


move. | 

and. 1 
‘ror. | 

move.b 


mave. | 
and. | 
rar. | 
mave.b 


move. | 
and. 1 
mave.b 


move. w 
nove. w 
usr 


lea 
move. w 
a ; move.b 
and. 1 
lea 
adda 
move. b 
and. | 


Digits, a6 
aG )+ 
a6 )+ 

#0, {a6 

Digits, a6 


#8, d3 
dl=yl 


d2, d7 
d2, d6 


#$F 0000000, d6 


#8,d6 
#8,d6 
#8,d6 


| #4,d6 


fal 


d6, (a6 )+ 


d7,d6 
#$0F000000, dé 
#8,d6 

#8,d6 

#8,d6 

d6, (a6 )+ 


d7,d6 

#S00F 00000, d6 
#8,d6 

#8,d6 

#4,d6 

d6, (a6 )+ 


d7,d6 

#$000F 0000, d& 
#8,d6 

#8,d6 

d6, (a6 )* 


d7,d6_—is 
#SQOOOF 000, dé 
#8, d6 

#4, d6 

d6, (a6 )* 


d7,d6 
#SQ00000F 00, d6 
#8,d6 

d6, (a6 )+ 


d7, d6 


#$000000F0, d6_ 


#4,d6 
d6, (a6 )* 


d7,d6 
#fQOOQ0000F, dé 
d6, (a6 )+ 


lea ; 
move. ’ 

; Requires dQ=x1, Fyi, 
bsr ZeroDigitArea 


dO, d6 
dl, d7 
SETCRSR 


Digits, a6 
80,d4 

(a6 )+,d3 
a$f,d3 


“HexOigits, aS 


d3,a5 
(a5), d2. 
ASFFL d2 


Get 


yinit ares 


d3=number of digits 


;Place Zeros 


; Save number 


in digit area 


;Get highest digit 


;Get next 


>; Get next 


: eRe 
> Get. 


nant 


7Get next 


~ 


nex 


;Get last 
& 


;Gat 


a 


:Get hax digit 


; Make: Ingai 


digit 


t digit 


Video page 


digit” 


digit 


digit 


digit 


address 


A 


Ptr tr rrrTT TIT tTTTitTTiTrrTririririrriri ett Le Lerr erie rlirr etree eee 


oneness nein nts termiepnsnbonsieeut endnotes eenunnnny=ansaonossinttfn tir siranesnapnenearenrenrr rpc nena ne 


bsr OSPVAL. 
add.w #i,d4 
emp. wi #8,d4 


i 


bne gai 
@2 mavem, 1 (sp )+, d0-d7/a0-a6 ‘ ;Restore registers 
jmp aQ )- ; 


SRTPSUMSSASTaASessss= SBSAAS SATA AG Sa SETA ANE LR Ssee Vee ERT RATS BAA aAAAssARe Ss 
PETTITT TT PToTTTTTETTTLTITTTITreee Lee Le LOPLI LLiTrrrrrrrirerrre 
RS VMDRARSASSR AT RSH ASIAAASBAARALeszas SASTARSSASAARARAL AAA STATA AAtedtanea BATS 


Name: AFOLDER 
Procedure AFolder(X1, Y1, x2, Y2: integer; var DStr: Str ing255 ); External; 


Function: Oraw a folder 


MOVE. L SP}+,A0 ~. ;save feturhA address 
MOVE.L (SP )+, al ;atring address 
MOVE. W +,d3 pye 

MOVE. W a ae 72 

MOVE. W SP )+,d1 yl 

MOVE.W (SP )+,d0 xl 


movem. | d0-d7/a0-a6, -(sp) 


move. | al, a6 
move.w d0,d4 
mave.w di,d5 
move.w d2,d6 
move.w d3,d7 
mave.w d0,-(sp) 3X1 
move.w di1,-(sp) sY¥1 
move.w d2,-(sp 7X2 
mave.w d3,-(sp +¥2 ‘ 
bsr AWh ite Gox 3 (X1, 71, X2, ¥2: integer ); 
move.w d4,-(sp ;X1 
move.w d5,-(sp ~os¥1 
move.w d6,-(sp) — 3X2 
move.w d7,-(sp 5¥2 ; 
moave.w 1,-(sp sling width - ¥ 
bsr ASquared Bax zest vi, X2,Y2,Line Width: integer ); 
mave.w 4d5,d0 s¥1 
add. w #14,d0 _ ;*14 
move.w d0,-(sp ;Yiel4- 
move.w d4,-(sp ‘7X2 
move.w d6,-(sp sX2 
bsr HLine (V4, X1, 2: ea 
clr. 1 d3 aie 
‘ move.b (a6), d3 s Length of string 
mu lu #8,d3 jae. @ach chac i# 8 pixels wide 
move.w d3,a4 ;string length 
clr. l dQ  # * . ae BS ta ad 4 4 
move.w d6,d0 eX2-: _ oo ; 
sub.w d4,d0_ «. X2°K4 ‘ 
dives #2, d0 5 (X2-M4 72 
add.w d4,d0 ;Cancer af window 
divs #2,d3 text langth / 2 
ub.w d3, dQ stuxt start 
mave.w dO, a5 ;String stert 


‘move.w dO, -(sp) 7 Gat ink 
move.w d5,d2 a 

add.w #3,d2 

mave.w d2,-(sp Gat. yl 

mave. 1 seat ;Get TITCE address 


bsr Paint String  ;Print tent string. an screen 
move.w a4,d3 ;tatel length”. 
add.w #£40,d3 wads for border 

move.w a5,d0 : + 


sub.w #20, dO ;start 10 lefe “ 


mave.w 45,d7 
add.w #14,d7 


maove.w d0,d4 .2 “ . 
add.w = #1, d4 ; 
bsr DoLina 


mave.w d0,d4 
add; w #3, d4 
bar. Oaline | 


move.w dO,d4 2 7 veg, SACS 
add.w ss #5, d4 BS 6? op age RR es ait > os : 


Fags 


el 


bsr Doline 


mevea.w d0Q,d4 
add.w #8,d4 
bsr DoL ine 


move.w dQ, d4 
add.w #12,d4 
bsr OoL ine 


mave.w d0,d4 
add.w d3,d4 
sub.w #i,d4 
bsr DolLine 


move.w d0,d4 
add.w d3,d4° 
sub, w #3,d4 
bsr DoL ine 


move.w dQ,d4 : : 
add.w d3,d4 
sub.w #5,d4 
bsr DoLine 


move.w dQ,d4 
add.w d3,d4 
sub. w #8,d4 
bsr Doline 


move.w dQ0,d4 
add.w d3,d4 
sub. w #12,d4 
bsr DoLine 


; Invert box containing the tent. « | 


move.w d0,dl * 
add.w d3,d1i 
move.w d0,-(sp) p xl 


move.w d5,d2 

add. w t#1,d2 

move.w d2,-(sp syi 
move. w ire Ae 

move.w d5,d2 i : - 
add. w #13,d2 ; 


move.w d2,-(sp) sy2- 
bsr AINVERT_BOX 
910 mavem. | (sp )+,dQ0-d7/a0+a6B © ;Restere the world 
jmp (6 ; 
DoLine mavem. | dO-d3/a0-a3,-( sp) be / 
mave.w d4,-(SP axl 
MOVE.W dS, ~-(SP syl 
‘ MOVE. W 35, -(5e| ,y2 
bsr VLINE 
movem. 1 (sp )+,d0-d3/aQ~a3. 
rts F } i 
H Ssacanasesesa sha es aA IEA AAAAKRA SAM ARRAM AAAI AAA AAT Ad atseaE eT: ‘ 
eerrrrettrrertrerrerrrrrtrrrrrrrrrritttirrerirtrt Prrrrr ir rrrr rr rrr err 
ADialog . 


Name: ADialag ee Ba 
Procedure ADialag(X1, Y1, X2, Y2s integer ); External; 


Functdon: Draw a dialog box 


ee wee ete ee we 


“MOVE. L SP )+, AO ; save return address 

MOVE.W bP yeas py2. 

MOVE.W (SP )+,d2 3x2 

MOVE.W (SP )+,d1 ;yl , ‘ 
MOVE.W (SP )+,d0 yl P 


mavem. | d0-d7/a0-a6, -(sp ) 


d0,d4 


move. w si “a 

move.w d1l,d5 ; . . © 

move.w d2,d6 ; ; * 

mave.w d3,d7 : . 

mave.w d0,-~(sp) ; kL : 

move.w. dl,-(sp) 7 YL. : 

mave.w e238 ;X2 .. ie H 

mave.w d3,-(sp) : +Y2 | a 

ber . AWhite Box 3 (X1,-71, X2, Y2: integer );. 

mave.w d4,-(spa) ea 

move.w d5,-(sp) Ne: 

move. w ie tas 7X2 

mave.w d7,-(sp) . END oo Be ; : 
mave.w #1, -(sp) - . y Lime width he oe too ‘ 
bsr — s ASquared Box “4 (X21, Y1,X2,72,Line Width: anteager ); . 


i : 
serene me tae 


iad be mam arabes aa sea So SP ES SET ne Rae ene ee 


move.w 4d3,-~(sp “SY2e1 

move.w d0O,-(sp "Xl 

move.w dl,-(sp 3X2 of 

bsr HL ine 3 (V1, Xi, X2: integer ); 
mave.w d6,d3 3X2 

add.w #1,d3 i+ 


: 3 ¥2 : 
bsr VL ine ; (X17, Y1, ¥2: integer ); 


mavem. 1 (sp )+, d0-d7/a0-a6 3;Restore the war id 
jmp a0 


, So aasaeeeraeeesaceeeaesseasnseddusasasedasssesaeeseseanescneswenessnesaseas 
Alcan Draw : 
i; Procedure Alcon Oraw(X1,Y1, lean Code: integer ); EXTERNAL; 


MOVE. L SP }+, A0 ; save return address 
MOVE. w SP )+, d2 ;save Icon Cade 
MOVE. w SP )+, dl ;save Y1 

MOVE. w sp )+,d0 ; save X1 


mavem. | dO-d7/a0-a6,-(SP) ;aave required regs 


maove.w d0, d6 

move.w di, d7 

tse SETCRSR 

move. 1 al, d6 

and. | HSFFFFFFFE, db jHae to be on a word baundary 
move. 1 d6, al 


“4 


bsr FindIcan 
@l elr.l do 
move, w a2 \+, (al }+ ‘;date 
move. w a2 )*, (al )+ ; data 
mave. w a2 )*, (al )+ jdata 
moveq  #$SA,d0 / 
add. 1 dO, al 
subq #6, al 
"8 dhe d3, @1 
mavem. | (SP )+, dO-d7/a0-a6 pe.sPestore the reg 
jmp ad ) 


e oe 


. _ ns 
S HOOIORIOIDICIONOIOIOIOIOR IOICIOIOIOIOICIOIOIOIOICICIOIDICHOROI IIIS RIIOIUIDIO IIR IC SOIC IE CHOI IC at 0 fe fC 28 RnR NOHO Hr 


’ 
FindIcan 


cle. l d4 att 
gove.w d2,d5 ;Calculate affset to correct icon 
lea TCONDATA, a2 

91 move.w (a2)+,d0 ;Get Leading count 


add. | #2,d4 
move.w dQ, d7 
elr. i d6 

move.w dO, d6 
sub. w #1,d5 


? -e 
cmp. w #0,d5 ~ i i . 
beq 910 ’ a 7 
32 mave. | a2 )+,d1 ptwo words 
move. w a2 )+,dl sthirerd word 
add. | 86,d4 ; 
sub,w. #1,d6 ;to nexe icon line . 
cmp. w #0, d6 ; 2 
ane 2 : ln oe 
mave.w (a2 )+,d3 ;Get trailing count 
add, 1 #2,d4 . 
emp. w d3,d7 ;Leader = trailer? 
bne 310 . * . ‘ 
bra a1 < 
g10 lea [CONDATA, a2 
adda “d4, a2 


move.w d0,d3. 
sub,w = #1, d3 
rts - 


set hergth 


FiMask 
F2Mask 
xlEdge 
YlEdge 
X2Edge 
Y¥2Edge 
Digits 


.Word 0 
. Ward 0 
WORD 0 jleft edge boundary in absolutes 
. WORD O ;Top edge boundary in absalutas 


-WORD 719 ; Right edge# boundary in absolutes, 


.WORD 363 ;Bottom edge boundary in absolutes 


- Ward 0,0 
byte 0 


LASTDIGIT . byte 0 


BYTE 
. BYTE 
BYTE 
. BYTE 
BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
BYTE 
. BYTE 
- BYTE 
. BYTE 
- BYTE 
BYTE 
. BYTE 
. BYTE 
» BYTE 
. BYTE 
. BYTE 
BYTE 
BYTE 
. BYTE 
. BYTE 
. BYTE 
BYTE 
BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
- BYTE 
BYTE 
. BYTE 
. BYTE 
. BYTE 
- BYTE 
. BYTE 
. BYTE 
» BYTE 
- BYTE 
~ BYTE 
- BYTE 
. BYTE 
- BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. BYTE’ 


. BYTE 
. BYTE 
BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
BYTE 
BYTE 
. BYTE 
.BYTE 
.6YTE 
.BYTE 
. BYTE 
. BYTE 
‘@YTE 
. BYTE 
. BYTE 
. BYTE 
.SYTE 
BYTE 
. BYTE 
.BYTE 
. BYTE 


-Word 0,0,0,0,0 


CHARACTER FONT TABLE 


«eee wen mmm wm nnwaweawwanocnaa ee eS ee ee ee es 


FONTTABLE 


$00, 00, $00, $00, $00, $00, $00, $00 
$10, $10, $10, $10, $00, $00, $10, $00 
$48,848, $48, S00, $00, $00, $00, $00 
$48, £48, SFC, $48, SFC, $48, $48, $00 
$10, $3C, $50, $38, $14, $78, $10, $00 
$00, $C4, $C8, $10, $20, $4C, aC, $00 
$60, $90, $90, $60, $94, $88, $74, $00 
$08, $10, $20, S00, $00, $00, $00, $00 
$08, $10, $20, $20, $20, $10, $08, $00 
$40, $20, $10, $10, $10, $20, $40, $00 
$10, $54, $38, $7C, $38, $54, $10, $00 
$00, $10, $10, $7C, $10, $10, $00, $00 
$00, $00, $00, $00, $00, $30, $30, $60 
$00, $00, $00, SFC, $00, $00, $00, $00 
$00, $00, $00, $00, $00, $30, $30, $00 
$00, $04, $08, $10, $20, $40, $80, $00 
$78, $84, $8C, $84, $C4, $84, $78, $00 
$10, $30, $50, $10, $10, $10, $7C, $00 
$78, $84, $04, $18, $60, $80, SFC, $00 
$78, $84, $04, $38, $04, $94, $78, $00 
$08, $18, $28, $48, SFC, S08, SOS, $00 
SFC, $80, $F0, 308, $04, $88, $70, $00 
$38, $40, $80, $F8, $84, $84, $78, $00 
$FC, $84, $08, $10, $20, $20, $26, $00 
$78, $84, $84, $78, $84, $84, $78, $00 
$78, $84, $84, $7C, $04, $08, $70, $00 
$00, $00, $30, $30, $00, $30, $30, $00 
$00, $00, $30, $30, $00, $30, $30, $60 
$08, $10, $20, $40, $20, $10, $08, $00 
$00, $00, $F8, $00, SFB, $00, $00, $00 
$40, $20, $10, $08, $10, $26,-$40, $00 
$78, $84, $04, $18, $20, $00, $20, $00 
$38, $44, $94, SAC, $98, $40, $3C, S00 
$30, $48, $84, SFC, $84, $84, $84, S00 
SF8, $44, $44, $78, $44, $44, SFB, $00 
$78, $84, $80, $80, $80, $84, $78, $00 
$F8, $44, $44, $44, $44, $44, $F8, $00 
SFC, $80, $80, SFO, $80, $80, SFC, $00 
SFC, $80, $80, SFO, $80, $80, $80, $00 
$78,384, $80, $9C, $84, $84, $78, $00 
$84, $84, $84, SFC, $84, $84, $84, £00 
$38, $10, $10, $10, $10, $10, $38, $00 
$1C, $08, $08, $08, £08, $88, $70, $00 


$84, $88, $90, SEO, $90, $88, $84, $00 | 


$80, $80, $80, $80, $80, $80, SFC, $00 
$84, $CC, $84, $84, $84, $84, $84, $00 
$84, $C4, $A4, $94, $8C, $84, $84, $00 


$78, $84, $84, $84, $84, $84, $78, $00 


SF8, $84, $84, SFB, $80, $80, $80, $00 
$78, $84, $84, $84, $94, $88, $74, $00 
$F8, $84, $84, SF8, $90, $88, $84, $00 
$78, $84, $80, $78, $04, $84, $76, $00 
$7C, $10, $10, $10, $10, $10, $10, $00 
$84,584, $84, $84, $84, $84,$78, $00 
$84, $84, $84, $48, $48, $30, $30, $00 
$84,984, $84, $84, $84, $CC, $84, $00 
$84, $84, $48, $30, $48, $84, $84, $00 
$44, $44, $44, $38, $10, $10, $10, $00 
SFC, $04, $08, $30, $40, $80, SFC, $00’ 
$78, $40, $40, $40, $40, $40, $78, $00 
$00, $80, $40, $20, $10, $08, $04, $00 
$78, $08, $08, $08, $08, $08, $78, 500 
$10, $28, $44, $00, £00, 300, $00, $00 
$00, $00, $00, $00, $00, $00, $00, SFE 
$20, $10, S08, $00, $00, $00, £00, $00 
$00, $00, $70, $08, $78, $88, $74, $00 
$80, $80, $88, $C 4, $84, $C 4, $88, 500 
$00, $00, $78, $80, £80, $80, $78, $00 
$04, $04, 374, $8C, $84, $8C, $74, S00 
$00, $00, $78, $84, SFC, $80, $78, $00 
$18,924, $20, $F8, $20, $20, $20, 300 
$00, $00, $74, $8C, $8C, $74, $04, $73. 
$80, $80, $88, $C4, $84, $84,:$84, $00 
$10, $00, $30, $10, $10, $10, $38, $00 
$08, $00, $18, $08, $08, $08, $88, 570 
$80, $80, £88, $90, £A0, $00, $88, £00 
$30,810, $10, $10, $10, $10, $38, 300 
$00, $00, $€9, $54, $54, $54, $54, $010 
$00, $00, $F 8, $44, $44, $44, $44, $00° 


wR ws ee mk ee ee ee ms eS ee ee ee ek ek we en ee we wk ee ee ee ek me we es ee we me A ee wee ee ek ee we mk me ee we ee ee ee ee es we ee we we owe 


ry 


rr a ee ee ee ee ee a a ee eT Te Ta Or a a er Ver awn Ty 


“PRAM = 


(space) 


* *-_—™ 


ON XX ECCAMBORBVOVSTFAL KM IFONAMOOMDPFPe vv wan 


~~’ 


i- 


 a2ae el - Fora ocage 


“WON Ama Gnr or: 


.., 
SSSSOS AS Sr AT TTA RSSLSARSATAAAAARTARAAUSRARASAACARARIAARASAKRARE THM SS 


$40 


$50 


£60 


. BYTE 
.BYTE 
. BYTE 
. BYTE 
. BYTE 
- BYTE 
~ BYTE 
-8YTE 
-BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
.BYTE 
.BYTE 
APPLICON 
BYTE 
» BYTE 
. BYTE 
»BYTE 
. BYTE 
. BYTE 


. 


TCONDATA 


, 
' 
1 
q 
' 


$00, $00, $38, 344, $44, $44,538,300; 
$00, $00, $58, $04, $C 4, $66,580,S80 ; $70. 
$00, $00, 374, $8C, $8C, $74,804,404 ; 
$00, $00, $88, $C4, $80, $80,580,800  ; 
$00, $00, $7C, $80, $78, $04,$F8,800 ; 
$20, $20, $F8, $20, $20, $24,918,800 ; 
$00, $00, $84, $84, $84, $8C, $74,800 ; 
$00, $00, $84, $84, $84, $48,$30,300 ; 
$00, $00, $44, $44, $54, £84, $6C, $00 — ; 
$00, $00, $84, $48, $30, $48,384,800 ; 
$00, $00, $84, $84, $8C, $74,504,878 ; 
$00, $00, $FC, $08, $30, $40, SFC, 500 ; 
$00, $04, $08, $08, $10, $08, $08,304; 
$20, $20, $20, $20, $20, $20, $20,$20 ; 
$00, $10, $08, $08, $04, $08, $08,810 ; 


WT SNE KE Coa TODA 


$04, $08,377, S$FE,$FE,$7F,$3£,8$00 ; apple ican 

$FE, SFE, SFE, SFE, SFE, SFE, $SFE,$FE ; rubout 

$00, $02, $06, $06, $1f, $0e, $06,802 ; left arrow $80 
$00, $40, $60, $70, $F8, $70, $60,940 ;right arrow $81 
$00, $00, 308, $ic, $3e, $77,508,808 ;up arrow . $82 
$08, $08, £7f, $3e, $1c, $08, $00,800 ;down arrow $33 


;* 1 Big board 


. word 
.word 
.ward 
.word 
.word 
. word 
.word 
. word 


23 

SO3FF, SFFFF, SFFEO, $0200, $0000, $0020, $0200, $0000, $0020 

$0200, $0000, $0020, $0200, $0000, $0020, $0200, $0000, $0020, $0200, $0000, $0020 
$0200, $0000, $0020, $0200, $0000, $0020, $0200, $0000, $0020, $0200, $0000, $0020 
$0200, $0000, $0020, $0200, $0000, $0020, $0200, $0000, $0020, $0200, $0000, $0020 
$0200, $0000, $0020, $0200, $0000, $0020, $0200, $0000, $0020, $0200, $0000, $0020 
$0200, $0000, $0020, SO3AA, SAAAF, SFFEO, SOOAA, SAAAB, $0000, SOOFF, SFFFS, $0000 
23 


;* 2 memory board 


.word 
.word 
. word 
. word 
. word 
. word 
. ward 


;* 3) Expansion card 


17 : 

$0000, SIFFF, SFFCO 

$0000, $1000, £0040, SO7FF, sF000, $0040, $0400, $0000, $0040, $0400, $0000, $0040 
$0400, $0000, $0040, $0400, $0000, $0040, $0400, $0000, $0040, $0404, $SE88, $0040 
$0406, $0008, $0040, $0405, $5CA8, $0040, $0404, $5088, $0040, $0404, $SE88, $0040 
$0400, $0000, $0040, $O7FF, SOSS7, $FFCO, eer aee SBDEA $0000, $0000, $7FFC, $0000 
17 


4 


.word 23 


. word 
word 
. word 
. word 
.word 
. ward 
.word 


$0001, SFFFF, $8000, $0001, $0000, $8000, $0001, s0000, $8000 

$0001, $0000, $8000, $0001, $0000, $8000, $0001, $0000, $8000, $0001, $0000, $8000 
$0001, $0000, $8000, $0001, $0000, $8000, $0001, $0000, $8000, $0001, $0000, $8000 
$0001, $0000, $8000, $0001, $0000, $8000, $0001, $0000, $8000, $0001, $0000, $8000 
$0001, $0000, $8000, $0001, $0000, $8000, $0001, $0000, $8000, $0001, $0000, $8000 
$0001, $0003, $8000, $0001, SEAAE, $0000, $0000, $2AA8, $0000, $0000, S3FF8, $0000 


23 / 
7" 4 diskette 


. word 
. word 
sword 
.word 
.word 
.waed 
. ward 
.word 


24 

SOOFD, SFFFF, SFEOO, $0087, $0000, ‘$0200, $0080, $0000, $3380, $0080, $0180, s0080 
$0080, $0180, $0080, $0080, $0180, $0080, $0080, $0180, $0080, $0080, $0180, $0080 
$0080, $0000, $0080, $0080, $03C0, $0080, $0080, $07E0, $0080, $0080, SOFFO, $0080 
£0080, SOFFO, $0080, $0086, $O7E0, $0080, $0080, $03C0, $0080, $0080, $0000, $0080 
$0080, $0180, $0080, $0080, $0180, $0080, $0080, $0180, $0080, $0080, $0180, $0080 
$0080, $0180, $0080, $0080, ee ea veer ee $0080, SOOFF, S$FFFF, SFF8O 


;* 5S drive & 


. ward 
. word 
.word 
-word 
. ward” 


ae ; 
$0000, $07F8, $2000, $0000, $0408, $6000, S3FFF, $FCO8, $A000, $2000, $0009, $3FFC 
$2000, SOO0A, $0004, $3FFF, SFCOS, S3FFC, $0000, $0408, S$A000, $0000, so7FS, $6000 
,20000, $0000, $2000 

"9 


;* 6 insert disk 


.word 
. word 
.word 
. word 
. ward 
.word 
. ward 
.word 


23 
$0000, $0000, $3FCQ, $0000, $0000, $2040, $0001, SFFFF, $€040 


$0001, $0000, $0040, $0001, SO7FF, $F840, $0001, SEFFF, SFC40, $0000, $1FC1, SFECO 


$0000, $3F 80, SFFOO, $0000, $7FC1L, SFF80, $0000, SFFFF, SFFCO, $0001, SFFFF, SFFEO 
$0003, $FFFF, SFFFO, $0000, $0000, $ 000, $0000, $0008; $0000, $0000, $0014, s0000 
$0000, $0022, $0000, $0900, £0041, $0000, $0000, #00806, $8000, $0000, $0100, $4000 
$0000, $03E3, SE000, BOD nOE Sr ert $0000, $0000, $0022, $0000, $0000, SOO3E, $0000 
23 


» 


;* 7 profile 


. word 
. word 
.ward 
.uvard 
. word 


10 
SIFFF, SFFFF, SFFFS, $2000, $o0do, $0004, $2000, $0000, ‘s0008, $2000, $0000, 40004 


$237F, $0000, $0184, $237F, $0000, £0184, $2000, $0000, $0004, $2000, $0000, F0004 ~ 
, 


BIFFF, SFFFF, $FFF8, $0300, $O000C, t00CO 
LO 


ab 


<3 lisa 


. ward 
.word 
. word 
. ward 
.ward 
.uaord 


word £0081, $5555, $0242, $0080, $0000, $0002; $0080, $0000, $a002, ns SFFFF, SFFFC | 


24 
SOO7F, SFFFF, SFFFC, $0080, $0000, $0002, SOLIF, SEFFR, $O3F1, $0120, $0000, $8001 


$0120, $0000, $83F1, $0120, $0000, $8001,%0120, $0000, $8001, $0120, $0000, $8001 - 
$0120, $0000, $8001, $0120, $0000, $8001, $0120, 50000, $87F 1, $0120, $0000, $8001 © 


BOLLF, SFFFF, 50001, $0080,:$0000, $0002, SOO7F, SFFFF, SFFFC, 30000, $0000, $0000 
SO07F, SFFFF, SFFFC, $0080, $0000, $0002, $0095, $5555, 55242, SOOBA, SAAAA, $A1 42 


word 24 

1" 9) keybd | - : ae. ; : ee : : 
.woed 13 ap hd, an = : a. i p nog 
.ward SLFFF. SFFFF, $EFFC : : Shae at? Bo . 7 


.ward 
-word 
. word 
. word 


-word 
. ward 
.word 
. word 
. word 
. word 


;™ 11) keyboard aut 


. word 
. ward 
.ward 
.word 
.word 
. word 
. word 
.word 
. word 
. word 


$2000, $0000, 26002, $2608, $6086, $0082, $2000, $0000, $0002, $2608, $6086, s00R2 
$2000, $0000, $0002, $2608, $6086, $0082, $2000, $0000, s0002, S26FF, $FFF6, $0082 
$2000, $0000, $0002, SIFFF, $FFFF, SFFFC, $0000, $0000, $0000, $0000, $0000, $0000 
13 


;* 10 mouse 


15 ‘ 

$0000, $7FFC, $0000, $0000, $8002, $0000, $0000, ‘S9FF2, $0000 

$0000, $9012, $0000, $0000, S9FF2, $0000, $0000, $8002, $0000, $0000, $8002, $0000 
$0000, $8002, $0000, $0000, $8002, $0000, $0000, $8002, $0000, $0000, $8002, so000 
$0000, $8002, $0000, $0000, $8002, $0000, $0000, $8002, $0000, $0000, $7FFC, $0000 
1S 
29 ° 

£0000, $0000, $01C0, $0000, $0000, $01C0, $0000, $0000, $01¢0, $0000, $0000, SOFF8 
$0000, $0000, $07F0, $0000, $0000, $03E0, $0000, $0000, $01C0, $0000, $0000, s0080 
$0000, $0000, $0000, $0000, $0000, $01C0, $0000, $0000, $01C0, $0000, $0000, $0080 
S1B6D, $8608, $6080, $ODB6, $DB60,. SBF 80, $3608, $6086, $0800, $3000, $0000, $0000 
$3000, $0000, $0000, $3000, $0000, $0000, $7FFF, SFFFF, SFFFO, $8000, $0000, $0008 
SORBED, SA6D8, $36C8, $8000, $0000, $0008, $9860, SBGDS, $36C8, $8000, $0000, s0008 
$9B6D, $8608, $36C8, $8000, $0000, $0008, $SBFF, SFFOB, $36C8, $8000, $0000, $0008 
$7FFF,SFFFF,$FFFO  - 

29 . . Ee 


;* 12) mouse out 


.word 
.word 
. word 
. word 
. word 
. word 
.word 
. word 
. word 
. word 
;* 13 2 
.word 
. ward 
.word 
. werd 
.word 
. word 
.word 
. word 
7* 14 2 
. word 
. word 
. word 
.word 
. word 
.word 
.word 
. word 


.word 


. ward 
.word 
. ward 
. ward 
. word 
. word 
word, 
Gaede 
. ward 
. word 


. word 
. werd 
. ward 


29 : Me : 

$O0E0, $0000, $0000, SOOEO, $0000, $0000, $O0E0, $0000, $0000, S07FC, $0000, $0000 
$03F8, $0000, $0000, SO1F0, $0000, $0000, SODED, $0060, $0000, $0040, $0000, $0000 
$0000, $0000, $0000, SQLEO, $0000, £0000, $O1E0, $0000, $0000, $00C0, $0000, $0000 
$00CO, $0000, $0000, SOOFF, SFFSO, £0000, $0000, $0180, $0000, $0000, $0180, $0000 
$0000, $0180, $0000, $0000, $7FFC, $0000, $0000, $8002, $0000, $0000, S9FF2, $0000 
$0000, $9012, $0000, $0000, $9FF2, $0000, $0000, $8002, $0000, $0000, $8002, $0000 
$0000, $8002, $0000, $0000, $8002, $0000, $0000, $8002, $0000, $0000, $8002, $0000 
£0000, S7FFC, $0000 

29 

port card point to port 1 

24 

SO3FF, SFFOO, $0000, $0200, $0100, $0006, $0200, $0100, $0000, $0200, $0100, $0000 
$0200, $0100, $4000, $0200, $0100, $C000, $0200, $0101, $CO00, £0200, $0103, $4000 
$0200, $O1E6, $7FEO, $0200, SOLEC, $0020, $0200, $01E6, $7FE0, $0200, $01E3, $4000 
$0200, $0101, $CO000, $0200, $0100, $CO00, $0200, $01E0, $4000, $0200, $01E0, $0000 
$0200, SO1E0, $0000, $0200, SG1E0, $0000, $0200, $0100, $0000, $0200, $0700, $0000 
$0200, $0400, $0000, SO3AA, #8C00, $0000, SOOAA, SAO0D, $0000, SOOFF, ‘3000, $0000 
24 

part card point ta port 2 

24 

SO3FF, SFFOO, $0000, $0200, £0100, 30000, $0200, $0100, $0000, $0200, $0100, $0000 
$0200, $0100, $0000, $0200, $0100, $ $0000, $0206, $0100, $0000, $0200, $0100, s0000 
$0200, $01E0, $0000, $0200, $01E0, $0000, $0200, $01E0, $2000, $0200, $010, $6000 
$0200, $0100, SEN00, $0200, SO101, SAQ00, $0200, $01E3, $2000, $0200, SOLES, S3FE0 
$0200, SOLEC, $0020, $0200, SO1EG, S3FEO, $0200, $0103, $2000, $0200, $0701, SAD00 
$0200, $0400, $E000, SO3AA, $BC00, $6000, SOOAA, SA0R0; $2000, SOOFF, SEO00, $0000 


s* 15) wait 


24 

SOO1F, SFFFF, $F800, $0010, $0000, ar at OMA ACE laa at 
$000B, $0000, $0000, $0009, $8001, $9000,/$0008, SCFF9, $1000, $0008, $67E6, $1000 
$0008, $33CC, $1000, $0008,'$1998, $1000, $0008, $0080, $1000, $0008, SOSA0,; $1000 
$0008, SOSAO, $1000, $0008, S0D80, $1000, $0008, $1998, $1000, $0008, $318C, $1000 
$0008, $6186, $1000, $0008, $C183, $1000, $0009, $87E1, $9000, SO00B, SOF FO, $0000 
SOQOE, $1FF8, $7000, SOOLF, SFFFF, BEGOG, S0010. S000, $0800, SOOIF, SFFFF, SF800 
24 


* 16 checkmrk. 


32 7 a 

$0000, $0000, $0780, $0000, $0000, $0900, $0000, $0000, ‘$1200, $0000, $0000, $2400 
$0000, $0000, $4800, $0000, $0000, $9000, S0000, $0001, $2000, $0000, $0002, $4000 
$0000, $0004, $4000, $0000, $0009, $0000, $0000, $0012, $0000, $0000, $0024, $0000 
$0000, $0048, $0000, $0000, #0090, $0000, $0000, $0120, $0000, $0000, $0240, $0000 
$0000, $0480, $0000, $0000, $0900, $0000, $0000, $1200, $0000, $0000, $2400, $0000 
$0000, $4800, $0000, $0000, $9000, $0000, $0001, $2000, $0000, $0002, $4000, $0000 
$F804, $8000, $0000, $2409, $0000, $0000, $1212, $0000, £0000, £0924, $0000, $0000 
$04C8, $0000, $0000, $0210, $0000, $0000, $0120, $0000, $0000, sour Hesnoees $0000 
32 


;*" 17 Arrow down 


8 
£0000, $01C0, $0000, $0000, $01C0, $0000, $0000, $01CQ, $0000, $0000, SoFFE, $0000 


.word 8 


; * 18 Arrow up 


.word 8 


$0000, $07F0, $0000, $0000, S03E0, none: $01C0, AOUOS $0000, $0080, $0000 


.word $0000, $0080, $0000, $0000, $010, $0000, $0000, $0260, $0000, $0000, $07F0, $0000 
.word $0000, S0FF8, $0000, $0000, $01C0, $0000, $0000, $O1CO, S000) $0000, 0409, $0000 


.word 38 


;* 19 Arrow Left 


-word Ll 


.word $0000, $4000, $0000, $0000, $000, $0000, $0001, SC000, $0000, $0003, $C000, $0000 
“ward $0007, $F FEO, £0000, SOO0F, SFFEO, $0000, $0007, SFFEO, $0000, $0003, SCG00, $0000" . 


.ward $0001, 3C000, $0000, $0000, SEORC: sie hes $0000, ela $0000 


.word Ll 


ae! 


word 
.word 
. ward 
. word 
. word 


i * 20. Arrow Right 


11 
$0000, $0002, $0000, $0000, $0003, $0000, $0000, $0003, $8000, $0000, 0003, sC000 
$0000, S07FF, SE000, $0000, $O7FF, SF'000, $0000, S07FF, $€000, s0000, $0003, $C000 
£0000, $0003, $8000, $0000, $0003; $0000, $0000, $0002, $0000 

ll. 


moe eee eee ee MOM, TEAL Paga Of 


ea 
END 


at 


Requirements an last review 08/03/8900 = ry 


1. eveiecs the Lisa 1.75 Hardware ERS and prepare uritten suggestions for 
Passible in circuit diagnostic aids, and - 
b impravemants or Fixes to Lisa 1.0 hardware problems. 
2. Fix any Daisy Wheel, Dot ‘Matrix Printer ar Mouse Diagnostic bugs or enhancements submitted by NPR. 


3. Finish your evaluation of Lisa and Macintosh QuickDraw modules and prepare a plan af action to 
convert LisaTest and Printer/Mouse: dtegnost te: graphics over to ute QuickOrew az a base. 


4. Collaborate with Gary er on the Lisa l. 75 Motherboard and Comb inacion CPU / I/O board 
' diagnostics. a 


5. Add more data logging capability te -your eae for use with LiseTest lavel2 made. 


6. Continue ta be inva lved and get more involved with the Advanced Development Store and Forward 
voice pAcajeact. : 


7. In addition to your invalvement with QuickDraw, you thould become thoroughly familiar with the 
Applications Programmer's Handbook, the Workshop enviroment and the OS. 


directly from the Boot ROM. 


SHR SSHATASSAT SATIS SST SAAT UT AARARTABS SAU ASAAASKE BEAST Aa asa rezKe Kn sae 


Name: DeskTop 
Function: Oraw a blank desktop 
Inputs required: None 
Qutputs: Nane 
Calling sequence: 
Assembly - JSR OaskTop 


Pascal - DeskTop | 


==2s2 gandeubbansuckixesbbankeddecadeadsacbocssadcdedacckubeeuanience 


Name: HlLine 
Function: Oraw a horizontal Line. 
Inputs required: HLine(Y1, X1, X2: tneeger ) 
Qutputs: None 
Calling sequence: 
Assembly - | move.W dl,-(SP ; 7yl. 
SP 
SP 


movea.W d2,-« 
move.W 43, - 
JSR HL ine 


;x«1 
yx2 


Pascal - HL ine(Y1, X1, X2); 


| 
SR SPSS SS SRAAMSH SATS A AVL AH AS ATSARSSAARRARKCALASAUTAAVABARALAAAswssxwssxss 


Name: VLine : . ' 
Funetion: Draw a vertical ‘lire. 
Inputs required: VLine(X1,Y1,Y2: integer ) 
Outputs: None rn 

Calling sequence: , 
Assembly - move.W dil, +(SP aml 
-( SP 
SP 


mave.W 

move.W 43, - 

JSR ' VLine 
Pascal - VL ine(X1, ¥1, 2); ; ‘e 


‘ é \ 
SPSS SRSSSAA SSS ees aT eT SSTOSAAARSRAASMASRARATALACSAAAAARAALARAAecwewaAse2 


Name: ALine fags ; ’ 
Function: Draws a line, hore or vertical, else does nothing. 
Inputs required: ALine(X1, Y1,X2,Y2, Wine -Hidth: integer ) 
Outputs: None 
Calling sequence: 
Assembly - move. 
mave. 


d1,-(SP) . fy 
d2,-(SP ) ;yl 
move. d3,-(SP).-  'n2 
; mave. d4,-(SP iy2 . 
move. d5,-(SP jLine Width 
JSR Aline Amy 


HEELE 


ta) 


Pascal - AL ina(X1, Y1, X2, Y2, Line Width )is ie ad i 


ass seaeseseanenssscsenaserasananaensouansesenzsezauausetesearssasas 
Name: ASquared Bax 
Function: Oraw a delta line to new position Fron current position. 
Inputs required: ASquared Box(X1,Y1, X2, ¥2, Line an ensinesase:) ; 
“Qutputs: None 
Calling sequence: 
Assembly - move. 
‘ move. 
move. 


dl, - SP) ;xl 
d2,~(SP)}) _: pul 
d3,~(SP ae 3x2 
move. d4, -(SP +u2 
mova. d5,- SP} : 

JSR ASquar dd. Bax 7 


ZEELEE 


jLine Width: 


Pascal 4 ASquared Box(X1, Y1, X2, ¥2, Line, aay. 
a anes iad Se a ae ea ieee ae aes 


Name: AWhite Box 
Function: Fill an area with white. 
Inputs required: AWhite Box(X1,YL, x2, ¥2: integer ); 
Qutputs: None ‘ 
Calling sequence: 
Assembly - mae, 
mave, 


-( SP ).- : Be. il 
-( SP} : yl 
mave. d3,-(SP) ° oe x2 
mave. ree | : 7y2 
JSR AWhite_Box i 


ZEEtEz 


Pascal lea AWhite _Box( x1, v4, 32,92 ji 


SARS rARS se asauasennsssagsaesenseaadaaaanadsaesensaesensasanucsesss2 


Function: Assembly graphics routines, called by PASCAL unit BASICS or 


reat 
fas 8 


Name: 

Funct ian: 

Inputs required: 

; Outputs: 

Calling sequance: 
Assembly - 


Pascal - 
SSSa2 zn SSS stsesasa= 
Name: 


Function: 
Inputs required: 


; : re eee eee . : annem iin enamine Ss in nc i es 


ABieck Box 
Fill an area with black. ; 
ABlack_ Box(X1,Y1,X2, ¥2: intager ); 


None 
move.W di,-(SP zxl 
mave.W d2,-(SP “syl 
mave.W 4d3,-(SP 3x2 
move.W d4,-(SP py2 
JSR AB lack Box 


AB lack _Box(X1, Y1, X2, ¥2); 


Perrrrrrrrrrrrrtr Tt) rT rr iti t ttt tty ret ree tet rte 


AGrey Box 
Fill an area with Gray. 
AGrey Pent hE Yi, X2, Vas integer ); 


Outputs: None 
Calling sequence: é 
Assembly - move.W “dl, «(SP axl 
mave.W d2,~(SP ryl 
mave.W 4d3,-(SP 32 
mave.W d4,-{$P 3y2 
JSR AGrey Box 
Pascal 2 AGrey Box(X1, Y1,X2, ¥2 ); 
owdee ctiuce seeebaceleube bau kekessaEabaasaiansuabeeeenuateunwaeeas 
Name: ALGrey Bax 


Funct ian: 

Inputs required: 

Outputs: 

Calling sequence: 
Assambly - 


Pascal - 


Fill an area with Light Gray. 
ALGrey Box({X1, Y1, X2, Y2: integer ); 


None 
move.W dl, -(SP sul 
move.W d2,-(SP syl 
move.W 4d3,-(SP paz 
move.W d4, -(SP 742 ° 
JSR ALGrey Box 


ALGrey_Sox(X1, Y1, X2, Y2 ); 


5 40°44 ; 
SRS ASSSASSITRARARASS ASA STSASAABARLSAASRLALATASSRARSANAATRALAATARszARVa612as 
\ 


Name: Alnvert_ Box bo : i 
Function: Invert an area. - 
Inputs required: AInvert_Bax(X1; ¥1, X2, Yas anteger je 
Outputs: None 
Celling sequence: er 
Assembly - move.W di, « sp px 
move.W d2, «(SP pyl 
movea.W 43, ~-(SP ; yd 
move.W d4,-(SP e ji? 
JSR Alnvert _Box 
Pascal = - AInvert _Box(X1, v1, x2, Y2);- 
sasasessaseaeserszesaaessesseskeeee sede eareendeee seed aneasssesse se 
Name: Paint String 


Funct ion: 


Inputs required:. 


PS 


Print text string on. screen , ‘ 
Paint aSersng(Xa, eae bser: Str ing28s ) 


Outputs: None | 
Calling sequence: 7 
Assembly - mave.W di, - sp 3x1 
move.W 43 iyl 
Py lea Ostr,al : “ 
move.! al, -(SP ) address of OStr 
JSR Paint ote ing 
Nate: axample af string has number of characters as First byte. 
OStr . Byte 40 
-ASCII ‘This line is 40 charecters longe....-e ies 
-Byte 0 
Pascal 7 OStr:2 ‘This is a sans le string. 
Paint String(Xl, Yi, DStr, }s 
saan a baaeiae a iaaesa ue ieews dudeuee si datueeaiwaseuia oistudans 
Name: Paint Ch ee cee 
Function: Print a character ca screen “ 
Inputs required: Paint Ch(X1,Yirinteger; Ch: char ); 
Outputs: None 2 Jap 
Calling sequance: 
Assembly - mave.W di,-(S$P). pal 
mave.W d2,+*{ SP). “ iyl 5 
move. w 2 -|5e| oes “; character 
JSR Paint Ch dae! 
Pascal - Chis "Ay 
Rs Gale Yl, Chis. 
ot Sees Med eet eat toe ba ead Fe eg 
Name: ASize String — 


en fem eR ETE aa ene eR primey Ber cape oe ere aust Seat sant 


dpe ie: 
Inputs required: 


Qutputs: None 
Calling sequence: : , 
Assembly - mave. W a7 tsP\ gull 
move.W d2, <1 SP aul 
lea Ster,al i 
move. 1 ai, ~({SP ) ;address of Str 
lea Sx, al a 
move. 1 al, “(SP ) jaddrass af SX1 
JSR AS ize_String : 
Pascal - Ser: 2 ‘Where will X be after this line?'; 
AS ize _Stering(X1, V1, Ser, $X1 ); ; 
so scccusessansscansacsrauausnacadanueaausaadsequeaecasatsenuenssane 
Name: ADraw _Integer. 
Function: Draw integer on s¢reen, POSITIVE ineagers anlys 


Inputs required: 


Calculate new X if string is printed. 
AS ize String(X1, Yl: integer; var_ Str: Str ing2SS;_ 
var SX1: integer ); 


ADr aw eknneges yVis integer; . Num, Digits: integer; 
Right Justify: boolean ); 


Outputs: None 
Calling sequence: ; 
Assembly -~ move.W di, =(SP : yxl 
mave.W d2,-(SP iyl 
move. W d3,- SP) - «Num 
mave.W . d4,~(SP ;Oigits . 
move. W dS, - SP pRight Justify 
JSR ADraw_Intager — 
Pascal - Num: = 123; Digits: = 4; Right _Just ify: True; 
ADr aw _Integer (Xt, Y1, Num, Digits, Righe _Just ify ); 
pasesereeanasessaccesssucraeenesaeeansnesannasesssesecgassesseeasas 
Name: AOraw Hex 


Function: 

Inputs required: 

Outputs: 

Calling sequence: 
Assembly - 


Pascal “ 


Draw Hex integer.on screen, for word values. 
ADraw Hex(X1, Yl: integer; Num: integer: ); 
None 


move.W d1,-(SP) _ gel 
move.W d2,-(SP yl 
mave.W d3,“(SP ;Hex Num 
JSR ADraw Hex 


Num: = $FAQ123; 
ADraw_Hex(X1,¥1,Num ); 


PPTTTTTTTOCTITTITITITTIITLLELITLLIiriititrrierlitiireeeeeetre etree 


Name: 

Funet ian: 

Inputs required: 

Outputs: 

Calling sequence: 
Assembly - 


Pascal 7 


PTTL CTTILETTTTLITCTTLICTLITILiT ree TLirreereirerrcireeerereerrtre 


Name: 
Functions 


Inputs*required: AFa lder(X1, Y1, X2, var integer’ var DSer: Str ing2sS )s 


Outputs: 
Calling sequence: 
Assembly - 


Pascal > 


SSeS esczragzssaatees 


Name: 

Function: 

[Inputs required: 

Outputs: 

Salling sequence: 
Assembly - 


Pascal - 


ADr aw _LHex 


Draw Hex integer an screen, for long word values. 


ADraw_LHex(Xi, Y1: eeeane: iu lang int ); 
None 


move.W di,-(SP)° pul 
move. W ~(SP ryl 
move. 1 d3,-(SP ;Hex Num 
JSR ADraw _LHex 

Num: = S$FAQL23;°. |. Ae, 
ADraw_LHex(X1, ¥1,Num ); * 


AFalder 
Draw a folder. 


Nane 
mavea.W dl,~-(SP). yxl 
move.W d2,-7(SP iyl - 
move.W d3,-(SP)-. a2 
move.W d4,~(SP : ; +y2 
lea DSer,al | / ‘i 
move. 1 al,=(SP) ‘ paddress of DStr 
JSR AFolder , fe 
OStr:= ‘Folder Nama’ 7 : ne 
AFalder(X1, 71, X2, ¥2, Str ); + 
Seacetueggedudueteataesewage vel pews cu oes sweuens 
va 
ADialog 


Oraw a dialag bax. 
ADialag(X1, YI, X2, etic eL 


None 
mava.W dl, -($e) | aa pal 
mave, W d2, -(SP ) yl 
move.W .d3,°(SP) 2 5 xe) 
move.W d4,-(SP} o , iy2 
JSR... ADialag 2°. 


‘ADimlag( XL, Y1, X2, ¥2 Jy" 


- 


nieeen meetin neta eneeeenemene naan menneemmn enema . stetneneaemeemetntanmeneeammemenemnainemnatinmel 


PEEP eTTTTTTTTTTTTITTITTTTrTTLTTiiTiliirrerririrrtrrt errr rere : 


Name: Alcon_Oraw 


Function: Oraw an Icon. 
1 Big board 2 mamory board © 3. Expansion card 4 diskette 
5 drive 6 insert disk 7 profile - 8 lise 
9 keyhd 10 mouse 11 keyboard aut 12. mouse out 
13. 2 port card point te port 1 14 2 pert card point to part 2 
15 wait 16 chackmrk 17) Arraw down 18 Arrow up 


19 Arrow Lafe 


20) Arrow Right 


Inputs required: Alcon Draw(X1, Y1, lean_Code: integer ); 


Qutputs: None 
Calling sequence: 
- Assembly - move.W di, ~(SP smd 
move.W d2,-(SP pyl 
mave.W 43,-(SP i lean Code: 
JSR AT can_Oraw 
Pascal - Alcon_Draw(X1, Y4, Icon Code: integer ) 
Perrerrrrrrirerrirr oer te rrr errr rr Perret) Dt 
cf 2 
4 ‘ 


soporte . 2 ican ene tte ae oad nae oe cee ETRE EE REE SNA | RR Mee Ae rari tarsal eet lieve ote 


aa /BALKUP! ROMTALK. TEXT , Page 


-title ‘SCC talk pragram for ROM 


skip out at end of list 


beq.s GatCmd 
‘sand reg® to chip 


move.b DO, (AG ) 


yw ae define symbols far use in code 
SCCb .equ sFC0201 ; B-port base 
ctrIR .equ 0 : i offset of control 
dataR . equ 4 2 “3 " data 
RCA -equ 0 Sy Roce iveCharacterAvail (RRO ) 
TBE .equ 2 ; TransmitBufferEmpty (RRO) 
ACK -equ $06 ; acknowlege byte : 
Hiahiaies definitions af rag save area « 
tRegs equ $0500 + far debugging: 
tOregs) .equ tRegs*S00 
tAregs .equ tRegs+$20 
tSSP -equ tAregs+S1C ; 5 th 
tIv ~aqu tRagst$40 ; mee@son for interrupt 
tFlags .equ tRegst+$41 “fe 
tSR .equ tRegs+$42 ; Status Reg - 
bPC equ tRegs+$44 ; Program Caunter 
tFC -equ tRegs+$48 ;. Function Cade peeren) 
tAA equ tRags+S4A . error Address 
tIR -equ tRegs+$4C ; Insteructian Register. 
tUuSP -aqu tRegs+$50 ; User StackPtr 
tCSP - equ tRegs+$54 . ; SP used for call 
pCount .equ tRags*$60 — ; packet length 
pCksm -equ tRegs+$62 ; chacksum 
RevPke .equ tRegs+$70 ; packet area 
pre . affsats of data within packets 
Cmd .equ 0 ; command its@lf (byte) 
Byte -aqu 1 } param byte 
Count equ 2 ; length (integer ) 
Addr .equ 4 ; address (long) 
Data equ 8 ; data (start) 
-proc  ROMtalk,O 
; AOIORORRICICIOI IOI IOIDIOIDIDIOIOAOIORDIOI IOI NOOO ITINORDIDI IOI OI HORDIDIDIOIDIOIGI ROHR OR DIOR DIOR IOI IO SOHO 
13” ROMtalk - a slightly fancy version of the ‘ald reliable TALK program 
;* which cuns on a ROM and “talks” aver the SCC port to a Lisa. 
5 Km intitialize my ptrs, ete. 
lea xFO, AO 
move. 1 AQ, $002C ; fake our only ane of interest 
lea xFFFF, AO ; and fake # dummy | 
move. 1 AO, tPC 
move #$2700, tSR 
lea ROMta lk, AO 
subea #$100, AO ; fesetve coom 
move. ! AQ, tSSP- 
pee initialize the SCC 
move. 1 #SCCb, A6 - > balsa of chip | et : 
tst.b (AG) ; force rag-pter to 0 : i‘ 
lea IDatB, AO } Point ta idit table: 
@l move (AQ )+, 00 get the next init word 
Isr #8, D0 get data value (and add delay) — 
move.b ” 00, (AG) send deta to chip : 
bra.s Ol Loop. (and delay } 
. page - ’ 
. {OKIE IDI II IOI III III IOI TOE ATE IDI AI IIIT ASO IOI IIA 
tok Main command loop here. - 
GetCmd ‘hove #RevPkt, A3 + point.ta the data area 
bse GetPke 3, and get it 
bes.s GetCmd ; loop if not correct 
| ele 00 s fetch command | 
move.b Cmd(A3),00 ; the command itself 
cmp i #9,00 in praper range? Se Ge oat « 


ne, tgnore it 


bgt.s GetCmd : 
else, ¢onvert to. beanies table. offset 


ms we we 


add 50,00 

move CmdTable(0Q),00 ‘ 

lea ROMtaik, AS 

move Ppt Satire ; pras@et count and Fr 

mave. 1 Addr(A3), AL ; address for commands 

lea Data(A3), AO ;. and pointer ta data Field 

jmp 0(A5,00 ) : then, sndex of fF to cammand - 
TmdTable , ;*«* table offsets here folks 

.word Echo ; is 

. ward Go : : ; Py ‘ 

. ward Load , 

.word Oump 


-ward RdBytes 

.word WrBytes 

.word © RdWords 

word. WrwbWords 

.ward Rdloengs : 
ward Wrlongs: a . a pny Mie dete 8S D8 ide acd 


.page 


[FOI IOI ROIOIDIOIOIOIDIGIDIOIGICR ADICIOICIDIOR AIDIRIOIRIOR IDIIOIDIBIOR IOI AT ICIOI IOI IDOI ICID I IOIOIOR I IOIDIOI OR A OIDIOIOIDIIOIDR i 


7* response cades 


Reply move SACK, DO 
ReplyX sr put 
bra.s GetCmd- 


4 send acknowledgement 


; echo the etuff 


Send move #RevPkt, AO 
move Caunt(A0 ), pCount 
lea Data( AQ), A3 
bsr PutPke 


bra.s GetCmd 


- page 


; sand back as our Fesponse 
; snd leap 


t 


[IO IDIOIOIOIOISIOIOIOI DIOR OICYOIIDIOIOIIGIDIOIDIOIDIOIDIOIDIRDIDIGIOISOIOIDIGIDIOI IO IDIOIIODIO IOI OIOIOIIOI ITO ROIIOIOR ROME 
;™ Byte (immediate) read/write routines. The data is contained in the 


;™ second byte of the packet. 


Go 5 “call” program. | ; 
mavem. | tRags, D0-07/A0-SP 3; “rastore” rags 
move. 1 ¢tPC, -(SP '¢ Create RTE data 
move wee eel : 
elr tIv ; Clear reason for return 
rte 3 and of F ta it 
xFO move.b &$2C, tIV ; tell how we got here 
move SP )+, t SR ; save stuf F 
mavea, | bee +, tPC 


mavem. | 00-D7/A0~SP, tRegs 


lea ROMtalk, SP 
mave. | #SCCb, Ab 
mave #ACK, 00 


bsr put8 

bra GatCmd 
xF FFF . word SFFFF, SFFFF 
Echa 3 ** shared entry 

bra Reply 
Load yon load an image; 


move. 1 Al,A3 
move #ACK, DO 


bsr Puts 
bse. GatPkt 
bra Reply 
Dump 3 *e dump an image 


. page 


; establish addressing to SCC again 


issue response 
and wait 
‘dummy to force call 


the count and address should be used 
+ copy address for get 
3; send ACK to tell we're reedy 


i and cead the thing 
go back ta main lIaop 


. YE HOIOIOIOR OO ICHOIOIOI IO OIOIGIDIOIGIOR IOIOIOIGIOIOI OI IDIGIOR RIDIIOIDIOIOIOIOIDIOIDIGIOIOIDIOISIOI IOI OIOIOIOIOIDI IOI ION IOI AOI OOH ONOIOH 


;* Byte reads/urites. The operations sre always done as single byte 


;* instructions. 


RdBytes ; *™* 


@l move.b (Al )+, (AQ )+ 
subq #1,01 
bgt.s ol 
bra Send 


pee 


WrBytes ;** 

al mave.b (AQ), (Al) 
move.b (Al )+, (AO )+ 
subq #1,01 ~° 
bgt.s 61 
hra Reply 


RdWords % * da ward aps 


@1 move (Al )+, (AQ )+ 
subq #2,01 
. bgt.s ol 
bra Send 
WrWords ;*«* word writes 
al ¢ mave AQ), (Al ) 
mave Al )+, (AO )+ 
subq #2,01 
hgt.s a1 
bra Reply 
RdLangs ; * da long ops 
31 mave. | (Al )+, (AO )+ 
subq 84,D1 
tigt.s 31 
bra Send 


Wrlongs ; ** lang writes 

gL " mave.t. (AQ), (AL) 
move. | (Al )*, (AQ }+ 
subq #4,01 


bgt.s a1 
bra ° . Raply' 
page 


, Raw FOHOR ICC HOI IORI ICIOR ACCOR ICHOHOROIONO IE HC 


/ 


j do.onea at « time 


: provide echoed data 


e 


[ERO IOI I OICIOT IOI ADIGICIOIOIHOROIIOI ACI OADISICICIIC IOI IIORCICICHEI I CHO 


4 


— 
;o GetPkt - receive a packet inte Storage pointed to by AQ. Carry is 
;* set an exit if an error (or timeout) occurred. 


GetPkt me entry paint 
tst.b (AG) ; + and force rag 
’ 


mave. 1 A3,A0 | - 53 get incoming ptr 


4 toto “noise” retry here oa 
gpd move.b #$30, (AG) > reset errors 
moveq #-1,02 ; initial checksum 
ele po ; and byte value 
clr. | o1 ; show count not yet received 
hiatal first word in is presumed ta be tha count 
a0 tsr.s gets ; get one from chip : 
hes. s ag ; keep retrying on timeout 
move 00,01 ; the packet byte counter(hi ) 
Isl #8,D1 : 
bsr.s gets 
bes.s @9g : Mp, a 
move.b 00,D1 3 eaunt (le) 
move D1, pCaunt ; seve for caller 
5 torn now, get the data part of packet 
@2 bsr.s getB + get next byte 
bes.s . 09 ; 3 if time-out, retry whe le thing 
move.b O00, (AQ )+ ; else, stash to buffer 
subq #1,01 ; : 
bgt. s @2 ; leep aver count 
5 toto now, get checksum and check it. 
; mave D2, pCksm 5. end save our eanadted checksum 
bsr.s gets 
swap O11 + get count to Ol 
mave pCksm, 02 3 get checksum back 
eor D2, 00 ; chacksum a match? 
beq. s @g : 
.word $003C, 0001 ; ori &1,CCR 
@9 rts s leave CC with result 
page 
: LLELAREN AAD DAREN AN ERE Se MN EEaCeNR SEER NEES KOE eRe cAReeN 
3 get - get next byte and seccumulate checksum | 


getB move #1000, 03 time-cut counter (~ 1 msec ) 


! 
@0 btst #RCA, (AB) 5 do we have it? 
bne.s @1 + yes, get the byte 
dbra 03, @0 ; loop (if mot timed out) 
: ari #1,CCR ; set C (ta shaw time out) 
.word $003C, 0001 . ri . 
rts : : 
@l add 02,02 ; while we delay, do part of checksum 


move.b dataR(A6 ),00 


addx 00, 02 and do the rext 


bsr.s getB j now, get checksum From line 
Isl #8, 00 
| 


’ 
tst DO ; elear C (ta show byte in) 
rts a i then, leave : 

. page Pea 
AOSHI IG IIDC IORI AIO I TORII IIR AIOE I III IIIT AI ITAA TI IIIT 
;™ PutPkt - sand a packet (AO ptr) 

PutPkt ye anergy. paint 
est. b (A6 ) ; -farce reg 
moveag #-1,02 3 initial checksum 
move. 1 A3,A0 ; Gopy for transfer 
yO start transmissian here 
ele DO ; 
mave.b pCount, 00 ; do thea count (hi First) 
bsr.s putB , 
mave pCount, D1 . $ Mow, rest af caunt 
mave.b& O1,00 ; lo-pare tase 7 
usr.s putB i 
ite seem send packet 
vl move.b (AQ j)+,00 ‘i 
osr.s puts ; : 
subq #1,O01 a 
bgt.s gL 
; Ok and chacksum oi e i 
nove 02,00 gs ; 
rar #8,00 . 4. hi-byte first 
osr.s put@ ie at ‘ 
ror #8, D0 - 3) than, la-byte . 
osr.s pute : sie ZO oe 
5 Kam “returna stuff 


rks Ste ; , ns 2 OS ee 


Ait 


HHO SA EERO OOH EOFS EEO REDE ODOC OIE RO SAORI OI IAI AAI HA 


Heal 


pute 


@1 


: JOIGISIIIOIGI I TOIDIOISIOIIOINOIDIDIICIOICIOISIGIDAUIERDINI I IOIDIORIDATIOIDIOI IOI IDOI IOI I IO IOI IOI ADIOIO DIOR AOI ICAO 


Ok 
’ 


IdatB8 


- page 
putB 


btst 
bnea.s 
bra.s 


add 
addx 
move. 
rts 


- page 


b 


- put « byte and eele check sum 


#TBE, (AG ) 
@1 : 
putB- 


D2, 02 


00, 02 
DO, dataR(AG) — 


data storage, etc. 


. word 
. word 
. word 
. word 
. word 
. word 
.ward 
.word 


-ward. 


. word 
- word 


.end 


$4209. 
$4404 
SO00A 
$5008 
$010C 
$0000 
$O30E 
$0001 
$C103 
S6A05 
0 


t 
. 
? 
* 
' 
* 
' 


e 
t 


mw we we ot we 


we we we wee me - 


ready yet? 
yep, send it. out 
else, wait 


while we delay, do checksum 


and send it 


a 


eset channel 8 
oly L-stop (async ): 
‘NRZ : 


BR gen for Tx, Rx 
constant for 125K baud 


start BR : 

allow intr'’s on Rx, Tx 

B-bits, RxEN 

8-bits, TxEN, OTR, ATS (422 made ) 
end-of-list 


foe 


Leen nent emi yo tes cnattea pte Rc 


, weg 


ne a 


Edit Date: 07/21/83 | ; i" 


File: SERVICE. TEXT : 
Purpose: This is the debugger, service mode, for the Lise 1.75 Beot ROM 


ere er ae ee ee Ts 


= p H ‘ A : 


.PROC SERVICEMODE, 0 ; i 

café AGrey Box, AWhite Box, Paint Ch, Paint _Str ing, ADraw LHex, ADreaw_ Hex 
.ref AFo lder, ADialog, VLINE, HLING, DeskTop, AInvert Box, ROMTalk 

. DEF OFFSERVICE, SERVICE 


XCOMMAND -EQU (144 


LevaveT .EQU  =- $0068 


; Equates for COPS use 


VIABASE -cQU —- SFCoDe1 BASE ADOR FOR 6522 


PORTB . EQU 0 ;PORT 8 DATA REG 
PORTA . £QU 2 ;PORT. A DATA REG 2. 
ODRB .£QU 4 ;PORT B DATA DIRECTION REG 
DDRA . EQU 6 ;PORT A DATA DIRECTION REG 
ACR _ .£QU 22 ; AUXILIARY DATA REG 
PCR .EQU 24 ;PERIPHERAL CONTROL REG 
IFR ~EQU 26 ; INTERRUPT FLAG REG 
IER . EQU 283 ; INTERRUPT ENABLE REG 
cca .EQU 0 ain KEYBOARD table 
XXXXXX . EQU 2 
FLAG . £QU 4 iFlag word ; 
DONE ~EQU 0 ;Bit O of FLAG, set maans. to @xit 
CONT . EQU 1 ;Bit 1 of FLAG, set means to exit cont 
COPSWATCH .EQU 2 ;8ie 2 of FLAG, sat maans to maniter COPS 
WCONT . EQU 3 ;Bit 3 of FLAG, set means DCW, nat OCB 
ODDADDR -EQU 4 ;Bit 4 of FLAG, set means odd saddress 
BUGMODE .EQU 5 ;B8it S of FLAG, set in LISA DEBUG 
MOUSECNT -EQU 6 Counter far mause codes 
ROW . EQU 8 jRow in folder display 
COPSROW - EQU 10 ;Row in digslog display 
COPSCOL ~EQU 12 ;Col in dialog display 
move.L (SP )+, AQ ;tave return address 


Pa, 


movem. 1 d0-d7/a0-a6,-(sp) ; Save everyone 


hse NewService ;New service desktap | 


; . ; 
bsr SETINTERRUPTS sSetup interrupt, vectors 
bsr HARDWARE af & ;Setup hardware | 
@2 btst #00NE, FLAG( aS ) pnaady for command 
beq @2 og , nate “ 
belr - 800NE, FLAG( aS ) ' Ready for next command 
‘ lea LKBOQ, a4 
move.b (a4 )+, d7 a ; = 


cmp.b #$7E,d7 


mave.b (a4), d7 ‘ a Shaws Loo 


cmp. b a"X" d7 ;Gee aut? “* ; 

beq 399 : ome ee 

emp. al" d7 tLise debug? 

beq as ae > 

emp. b a" 2", d7 ;Call program? 

heq ® Bir hte bs . 

cmp.b a" 3" d7 ;Exeacutea w test? ; ~ 

baq a 

emp.b "4" dd? jLoop on a test? . 

‘beq 36 : i 

cmp.b a"S" d7 pAdjust L video? . 

beq ag : 

emp.b a°6" d7 : ;Ad just M video? 2 

beq 910 ee, he sa : 

cmp.b "7" d7 o* ;Power Cycle? 

beq 310 = a 

emp. #3." d7 ‘ ;Help? 

beq gl2 

emp. b ea", d7 ;Talk, Serial 8? — + 

beq a14 . ; 

bra 3100 : : i » 
5 bsr QNDEBUG + 

aset 28UGMODE,FLAG(aS) - .  ; Bit 5 of FLAG, set in LISA DEBUG 

oer Service & : : 

be Ir #QUGMODE, FLAG( aS ) - 4B8it S of FLAG, set in LISA OEBUG 

bor ' NewServices fe Ture ae 

brs a2 
“6 bere =» DacALL 

gar — NewServica 

bra "2 a 


39 br = Dol Video "3 Sie eS ae 


bsr 


jmp 


move. Ww 
bsr 
bra 


+ 
NewServ ice 
jsr 


mave.W 
move.W 
lea 
mave.l 
jer 


move. 
move. 
mave, 
move. 
jsc 


ZTETEE 


lea 
lea 


elrow 
@i« mave.W 
move. W 
move. 
jsr 


adda 
add.w 
amp. w 
bne 


sr 


ets 


’ 
InitQueuas 
lea 
move. 
move. 
mave, 
move. 


EE&eE 


lea 
lea 
elr.t- 
clr. | 
aL move.b 
move.b 
add.w 
cmp. w 
bra 
res 


Options .Byte 


- ASCII 


. Byte 


TTalk  .Byte. 
-ASCIT 


movem. | 


NewService 
@2 


_OaMViden | 
NewService 
@2 


SFalder 
He lp 


#DONE, FLAG(aS ) 


913 


#DONE, FLAG( a5 ) 


NewService 
e2 


SFalder 
#200, -(SP 
#220) -(SP 
TTalk, al 

al, -(SP) 
Paint String 
ROMTa ik 
NewService 
92 


RESTORE 


a0 


#10, d6 
Hhat 
@2 


ae eee 


iPlace service folder on the screen 


;Ready for command 


;Ready for next command 


7Piace service folder on the screen 
gad a ; 
a 


iatPing address 


yRestore hardware 


;Restore the world 


;New service desktop . 


DeskTop 


#10, -(SP 
a 
Options, al 
al,-(SP) 
Paint String 


#5,-(SP) 

#20,-(SP) 
#170, -(SP 

fice, tet 
ADialag 


Level, aS 
Selections, a6 


d7 

#10, -(SP) 

sey 

a6, -(SP 
oPaine String 


#22, a6 
#1,d7 7 
#10, 7 
al 


InitQueues 


KEYBOARD, a5 
#0, CCOL(aS ) 
#0, FLAG( aS } 


80, MOUSECNT( aS ) 


#0, ROW( aS ) 


KBDQ, a0 
LKBOQ, al 
do 

dl 

di, (a0 )* 
dl,(al }+ 
#1,d0 
#40, dO 
al 


3 
OPT.IONS'- 
i) 
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“TALK thru Serial Pore 8... ' 


j;Meake a blank desktop 


gull 
iyi 
sDetr:= "OPTIONS'; 
;string address 


¥ 


sl 

sh. 

3 ea 

Pye 

‘'yMake "pull down" tab 


/ 


;xi 
yl 8 
;string address 


* . : on! 
« oa . 


™ 


;Veriable table 
;Init command column 


f 


; CHARACTER QUEUE’ 
: jLast command 


-Byta 


. 
’ 


Level .word 
Selections 
. Byte 
- ASCII 
- Byte 
ASCII 
-Byta 
-Byte 
-ASCITE 
- Byte 
-ASCIT 
- Byte 
.Byte 
- ASCII 
- Byte 
- ASCII 
-Byte 
Byte 
-ASCIT 
.Byte 
-ASCIT 
- Byte 
-Byte 


-ASCILT 


-Byta 
-ASCIT 
- Byte 
- Byte 
«ASCII 
. Byte 
-ASCIT 
. Byte 
.- Byte 
ASCII 


«ASCII 
Byte 
- Byte 
. ASCIT 
Byte 
~ASCIT 
- Byte 
- Byte 
-ASCII 
. Byte 
. ASCIT 
-Byte 
- Byte 
-ASCIT 
Byte 
- ASCII 
Byte 


’ 

DoMV ideo 
MOVE. W 
MOVE. W 
MOVE. W 


MOVE. W 
jsr 


move. w 
eae 
mave. w 
MOVE. W 
MOVE. W 
MOVE. W 
jsr 
add,w 
dbeq 


a1 


move. w 
elr. | 
Move. w 
MOVE. W 
MOVE. W 
MOVE. W 
yer 
add.w 
dheq 


az 


MOVE. 
MOVE. 
MOVE. 
MOVE. 


jar 


ZEEE 


best 
neq 


Byte > 


9) 


25, 35, 50, 60, 75, 


20 : ‘ 
" Lisa debug 
$7E 


20 


“*Call program 


$7E 
"20° 
0 
20 
$7E 
"3° 
0 
20 
‘“*Loop an a 
$7E 
‘a' 
0 
20 

Adjust L 
$7E 
‘Ss? 
0 
20 
$7E 
“67° 
0 
20 
‘*Power Cycle 
$7E 


20 


S7E 


#0,-(SP 
#0, -(SP 
#719, -(SP_ 
#363, -/8P} 
AWhite Box 


#8,d5 

d6 

445, d7 
d6, -(SP 
#0, -~(SP 
#719, -(SP) 
HLINE 

d7, d6 

d5, a1 


d6, -( 
40, -(SP) 
#363, -(5P) 
VLINE 
d7,d6 

d5, 92 


#0,-(SP) 
#0, -( SP) 
#719, -(SP) 
#363, -(SP} 
Alnvert Box 
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*Execute a test 
test 
video 


Adjust M video 


DONE, FLAG( aS) 


8$, 100, 115, 130, 145 


' Talk, Serial a ' 


ernie aammetamecsratamematas eamiamemnieeetardemepametes rameenamemaammmenmpanttadammn maanemummetenantammememmemanmemanaed 


imi. = * 
ee -_ 
sua 

sy2 


7 eee On Mac, ta 12 
;Y value 

s Increment 

iyl 

sl 


3 ad: 


Number of lines 


;Next y vere 


;Number of lines 
;Y value = 

; Increment 

px 

iyl ‘ 
iy2 


aé : 
;Nexe y value 
a 


jul 
yl 


“eed 


342 


y Ready: for command 


be lr DONE, FLAG(aS) ;Ready for next command 
res 
: 5 sntenscstitnaninsirervetngeaincensiarmeesy 
DoLVideo 


MOVE.W 40, -(SP) 
MOVE.W #0, -(SP 
MOVE. W ee) 


MOVE.W #8363,-(SP 
jse AWhite Box 
move.w #13, d5 
elr.l d6 
move.w #28, d7 

91 MOVE.W «d6,-{SP 
MOVE.W #0, - SP 


MOVE.W #719, -(SP) 
jsr HLINE 
add.w d7,d6 

dbeq d$,@1 


move.w #16, d5 


elr.1 d6 

move.w 4445, d7 
a2 MOVE.W d6,-(SP) 

MOVE.W #80,-(SP) 


MOVE.W #363, -(SP) 
jse VLINE 
add.w d7,d6 
dbeq d5,@2 


pNexit y value 


yx 
syl 


gue 


iy2 


;NumBer of lines 
;Y value 

; Increment 

iyi 

jul 

uz 


sNumber of lines 
:Y value 

j Incremant 

ial 

iyi 

1 Yy2 


;Next y value 


MOVE.W #0, -(SP +xl 
MOVE.W #0, -(SP yl 
MOVE.W #719,-(SP 7x2 
MOVE.W #363, -(SP ;y2 
jse AInvert_Bax 
a3 btst SOONE,FLAG(8S) ;Ready for command 
beq 93 ; 
belr #DONE,FLAG(aS) ;Ready for naxt command 
rts 
DaCall : 
bsr ONDEBUG ~Make falder and command line . 
pee 
SFolder : 
move.W #30,-{SP xl 
move.W #90,-(SP) _ syl / 
move.W #690, -(SP 3 ea 
move.W #8355, -(SP 7y2 
F lea SHeader, al ; 
move. ai, -(SP) (f@tring address 
jsr AFo lder ¢Place service folder an the s¢reen 
rts m _ 
SHeader . Byte 12 7 ‘ a 
-ASCII ‘Service Mode’ 


.Byta 0 


re fest ty SSSR GIRTON Tes Sy MERE nl enero ten hena  rEsS ot RNASE 


| ONDEBUG 
thovem. | dO-d7/s0-a6, -(sp ) ; Save averyone 


osr C IrCommand ;Clesr command line 
bsr SFoaldaer . (Place service foider an the s¢reen 
move.W #117,-(SP) yl 
mave.W #30, -(SP) jul f 
mave.W #690, -(SP) a ixa 
js HL ine : ; sa) 
move.W #40, -(SP) ped. 
move.W #108, -(SP) “yl 4 Fa 
lea SCommand, al ; . 
nove. al, -(SP} -. pSteing addrass 
yer Paint String ge 


mavem. | (sp )+,d0-d7/30-a6 2 gRestore the wor ld 
ceks : aes « 
3Cammand - Byte 8 

-ASCIT ‘Command: ' 

-Byta - 0 
UFFSERVICE oa ee ee Y 
novem. | dO-d7/aQ-a6,-(sp) ;Sav@ everyone “sg 


1 RACH ACK SOCETerOCCTTrrrerrrerTtrrrrrtrtTCterrrrerrrrrercrirrtrrrrrey ce err. 


meth aah mee sia Ae spe ance eked “ cee mee eee ame mee ne 


rags 
ctr igincaetemcattaaAetn etaRE yin ta Reel me ahem rl rire allen ence ec ee etter ce rotten? an rain 3 . arin : . cre ine eee 


ETE 


rts 


C IrCommand 
move. 
move. 
mave., 
move. 
jser 
rts 


ZrEE= 


ee ee ee er 


SERVICE 


C irCommand 
#30,-(SP) 


#690, - 
#355, - 


SP 
SP 


reao, 15°) pyl 


AGrey Box 


#40, -(SF) 
#110, -(SP 
#685, -(SP 
reas, -| 3°] 
AWhites Sox 


;Clear command line | 
yal 


;x2 
iy2- 


mavam. 1 (sp )+,d0-d7/a0-a6 >Restore the world 


ral 
iyl 
yu2 
eye, P : 
- ¢ Clear command line 


ee ore 
OIC GIOR IGIOIOIDIOIOIOIOIOIUIOIOIOIOIUIDIOIOIDICIDIUIOISIOIO IOS ROIOIOIOR IOIOI OI IORI IDIDI AOIOIGIDIDIOIUIOIOR RODIN AOI IC HORI 


movem. | d0-d7/a0-a6, -(sp) ; Save everyone 


osr 


ee ee ee ee ee eee 


| OaService 
a2 brst 
beq 


be le 
lea 
move. b 
emp.b 
beq 
5 
clr. l 
move. w 
mu lu 
add. w 
Bi og mave. w 
mave.w 
add.w 
bsr 
‘ 
move. w 
. cmp. w 
bm i 
move. 
move, 
move, 
: move, 
bsr 
‘ 
@3 
move. W 
move. W 
lea 
move.L 
jsc 
add.w 
. ose 
cmo.b 
bna 
bsr 
bra 


eee e 


DoService 


(sp )+, d0-d7/a0-a6 jRestore the world 


#DONE, FLAG(aS ) 
@2 


#OONE, FLAG( #5 ) 
LKBDQ, a4 

(a4), d7 
#'Q',d7 

@100 


dl 
ROW( aS ), dl 
#10, dl 
#120, d1 
d1,d2 
d1,d6 

#10, d6 
Cir4 


ROW( aS), dS 

#19,d5 

@3 

#0, ROW( aS ) 

- #120, d2 
#120, d1 
#130, d6 

Cir4 


#60, -(SP) 
d2,~(SP) 
SLINE, al 

al, ~(SP) 
Paint String 


#1, ROW( aS ) 


CLRResponse 
#'D',d7 

34 

Display 

V2 

# R’,d7 

yS 
ReaadRegRb 
32 

#'S',d7 

36 ‘ 
Setit 

92 

a'T',d7 ‘ 
97 in 
TestTimer.-. 


32 


NOIOHOICIOIOIOIOI IOI IOICIOIOR OIOIOIOIOIDIOIOIDIDIDIOIOIOIREIDIOIDIO BETO I IOI OI IDIDIGI I OIDIOITI DI BOIOIDIDIOIOIOIOR BOHR IOIOR STHDE 
i 


;Ready for command . 


;Ready for next command 


;Clear mext 4 lines 
;Stere of first row 


;Next row | 
;C leer 4 commdnd lines below 


sRestart at top of page 
;Start of first rqw 
Clear 4 command lines below 
7x1 
pyl 


;string address 


;Clear folder off the screen 


@7 emp. 6b , a'C'. d? 

bre @8 

bse COPS it 

bra 2 
a8 mp. b a'M'  d?7 

bra eo 

bsr MONCOPS 

ora @2 
ag emp. b #'x', d? 

bne @10 

bsr ExitCOPS : 

bra @2 : 
@10 cmp.b #°H' dd? 

bne @1l 

bsr Help 

bra @2 
oll bse What 

bra @2 
9100 rts 
: CETTE TTT TTerererrrerrrt errr rrrrrrrr 
What , : : 

move.W #280,-(SP)_ ;x1 normally 80 

mave.W d6,-(SP) yl 

lea Invalid,al 

mave,L al,-(SP) ;utring address 

jsr Paint String 

add.w = #1, ROW( a5 ) 

rts 
: PRPS SASS STIRS SSA ASTI RARAARAS TA SARALSMARARSACRARAIAAAAREAARAST AST eK Bees 
Display : 

lea Response, a0 

adda #11, a0 

lea Dispehar, al 


move.b (al), (a0) 
lea LKBOOQ, a4 
adda #1,a4 
move.b (a4)+,d7 
cmp. &' ',d7 


heq @1 
cmp. b a'W',d7 
bre @2 


mava.b (a4 )+,d7 
cmp. b #' ',d7 


bne @sSo 
@l bsr GetAddress 
usr PrtResponse 


move.w (a3),d0 


move. w #180, -(SP) yi 
move. W di, -(SP yyl 
move.w do, - SP | - 7 integer 
jsr “ ADraw_Hex 
bra @100 ‘ 

92 emp. b a'L’,d7- - 
bne @3 
mave.b (a4 )+,d7 
cmp.b a' '  d? 
bie @50 
osc GetAddress 
bse PrtResponse 


mave. | (a3), d0 


mave. Ww #180, -(SP) pul 
move. W di, -(SP) sl 
move. | dO, -( SP) 3 integer 
ysr ADraw_ LHex ae 
bra 3100 
3 emp. a's',d7 
ane 14 
mave.db: (a4)+*,d7 
cmo.b °°  d7 
bone 350 : 
ber GetAddress # 
osr CirSereen é 
clrow d6 : 2 + Row 
931 ~ mave.w . d6, ROW( aS ) | ea, 
bar CLRResponse qtlear responsa line 
nave, | #1380, d7 , ;column word 
ner, PrtResponse ;Line header 
932: mava.w- (a3)+,d0 . " ° Read: a ward of data 
, mave.w d7,~-(SP) reer: .) mee 


move. dl, ~(SP) sal py) 


move.w- dQ,~(SP) ; integer 
jsr ADraw Hex : 


add.w #48, d7 


cmp. w #620,d7 ~ ' yALL the way across 
bmi @32 - 
sdd.w #1,d6 
cmp. w #15, d6 300 18 raws 
bmi @31 
bra @100 
a4 emp.b #'C',d7 ;Display continugus, OCx 
bne 850 
bset #HCONT,FLAG(aS) ;Oefault ta word size: 
belr #CONT,FLAG(a5) Init cantinuous exit flag of F 
move.b (a4 )+, d7 oe 
emp.b a 'd? ;Default OC means OCW 
beq @4l 
cmp.b a'wW',d7 ;0r select OCW 
beq @41 = og aad D8 
be lr #WCONT, FLAG( 05 ) o we 
cmp.b #'8',d7 ;Se@elect OCB 
beq @41 
bra @50 
bsr GetAddress ;Weite address displaying 
btst #WCONT,FLAG(a5) ;Word or byte, set means word? 
hne ' 943 ; 
btst #OODADOR, FLAG( aS ) ;Bit 4 of FLAG, set means odd address 
beq @42 
adda #1, a3 
osr PrtRespanse 
move.b (a3), d7 ;...raad First byte 
bra @44 
osr PrtResponsa 
move. w (a3), d7 :...fead first word 
move. w #180, -(SP) 5 ml 
move.W di, -(SP) il 
move. w 97, -08P} y integer 
jsr ADraw_Hex ;Print First ane 


belr #COPSWATCH, FLAG(#S) ; Turn aff MONCOPS made 
bsr CirDialog . ;Clear dialog box 
mave.w #80, COPSCOL( a5 ) ae : 
mave.w #0, COPSROW( a5 ) 


oa 


best #WCONT,FLAG(@S) ;Word or byte, set means ward? 
2 . 


beq @5 

btst 8CONT,FLAG(aS) ;Chack Flag for exiting cont inuous 
_bne 6100 

move.w (a3), d0 : ae: 

cmp. uw dO, d7 oe / 

beq @S1 ae 

bra @53 

btst RCONT,FLAG(aS) ;Check flag for exiting continuous 
bne @100 

move.b (a3), d0 

cmp.6 dO, d7 2 ae 

beq @52 ~ 

move.w dQ,d7 ~ ; Save code 


move.w COPSCOL(a5),d6 ;Calumn in dialog display 
cmp. w #30, d6 
bmi 9100 


thave.w d6, -(SP pul 

move. w coPshoH( aS ), dS ;Row in dialog display 
add.w #40,d5 
‘mave.W d5,-(SP) yyl 

move.w eam ee ; integer: 

jsr ADraw_Hex 2% 


otst  #WCONT, FLAG( aS ) 


one 254 

bsr PaintB lank 
add.w 28,d6 

hsr PaintB lank 


add.w #40, d6 


yer PaintB lank 
add.w #8,d6 
hse Paint®B lank 
add. w #8,d6 
bsr Paint® lank 
add.w #8,d6 
tse PaintB lank 


sub. w 824, d6 
move.w d6,COPSCOL( a5) | 


cmp.w 8600, d6_ S ;Pase adge? - & g < GRE ag 


x ra EERIE orn em ng 


‘ get w wey ' pie Sh hee a. 
nes spninendanme tatu raenranpestientn tttaiararinelethtpereytish ent pe UTP Nein rere NR A A PEDO FTE tn sake 


* 
1 


@10 


@s0 
9100 


gl 
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bmi 
move. uw 
move, w 
add.w 
move. w 


Paint8 lank 


move. W 
move. W 
move.w 
jsr 
rts 


ReadRegRb 


belr 
lea 
adda 
move.b 
cmp.b 
bne 
move.b 
cmp.b 
bne 
bsr 
bsr 
move.w 


move. WwW 
move. W 
move. w 
jsr 


move. w 
btst 
beq 
bra 


bra 
rts 


lea 
adda 
lea 
move.b 


lea 
adda 
mave.6 
cmp.b 
beq 
emp.b 
bne 
move.b 
emp.b 
ore 
bee 
move. w 
bra 


emp.6 
bre 
mave.b 
cmp.b 
bne 
ber 
move. | 
bra 


cmp. 
bne 
move.b 
cmp. b 
bne 
obser 
mnove.b 
bra 


tma.b 
bre 
belr 
move.h 
cmp. b 


| #180, -(SP) 


as p.e.nQ, continue 
#120, COPSCOL( aS) ae 
COPSROW( aS ), dS 
#10,d5 

dS, COPSROW( aS) 


w41, d5 | 


pNext row 


os. 


What 


* t 
SPRSASASSAIRSAAASSLATAAIAKAAAAR ARKH ANA Ree TAAL sa AR 


ae tee pxi 

d5,-(SP ;yl 

#' ',-(sp) ;Charecter 
Paint Ch | ;Plece character, on the screen 


j *Saescasaasaccssesconsnasanasmesendsensuscscanengaaersucegzesesans 


SCONT,FLAG(aS) ;Clear flag for exiting cant inuous ; 


_ LKBOOQ, a4 


#1,a4 
(a4 )+, d7 


#'C',d7 ;See if RC address 


GetAddrass 
PrtResponse 
(a3), dO 


sl 
+yl 


di, -(SP 
; integer 


-(SP 
ADraw_ Hex 


(a3), d5 

CONT, FLAG( a5 ) 
el. ; 
@100 


yCheck flag for exiting: cant inuous 


What 


, Basseaeseesasesssessases ces eaneeeaseseeasseseseesseaseneanusensase 
Setit 


Response, a0 
#11, a0 
Setchar, al 


(al), (a0) 


LKBOQ, a4 
#1,a4 


(a4), d7 


s' ,d7 . 


950 


if éont inuous 
.no, must He an error. 
Cheer’ Flag For exiting cant inugds 
-yas, what form? — 
Defeule ‘to word 


; See 


BCONT, FLAG(aS ) 
(a4 )+,d7 © 
a’ ',d7 


<a | rs 


beq es ; 
emp. 6 a'W',d7 tWas word selected? 
bne @7 fe..fo, try another | 
movea.b (a4)+,d7 t-.. yas, Fallowed by « blank? 
cmp.b #° ',d7 ; 
bre @50 : eae eee MO, must be ereor 
@5 bsr SetWord 
a6 move. w dS, (a3) : = 
btst CONT, FLAG(aS) ;Cheack flag for axiting continuous 
beq 96 
bra 9100 
a7 cmp.b #'L', d7 ; Cont tnuaus Long? 
bne ag. j<ecMa, try another 
move.b (a4 )+,d7 sae 
cmp.b t' ',d7 ;Follawed by a blank? 
bre @50 j..4NQ, must be an error 
bse SetLang : , 
as mave.1 d§, (a3) a ; 
btst SCONT,FLAG(aS) Check flag for axiting continuous 
baq @g 
j bra @100 
ag cmp.b #'B',d7 pis it continuaus byte? 
bne @50 : 
move.b (a4 )+, d7 
emp.b a’ ' dd? 
bne @50 
osr SetByte 
@10 mova.b dS, (a3) 
best #CONT,FLAG(aS) ;Chack flag for exiting cont inuaus 
beq @10 
bra @100 
| a50 bra What 
@100 rts 
SatWord 
bsr GetAddress 
osr PrtResponse 
bsr GetData 
move.w #190, ~-(SP) yx 
move.W dl, -(SP pyl 
mave.w d5,-(SP 3 integer 
jse ADraw Hex ef 
rts 
SetLang 
taser GetAddress 
bsr PrtResponse 
bsr GetData 
move. w #180, -(SP ) sxl . 
mave.W di, -(SP plo. J 
move. | d5,~-(S$eP i integer 
jse ADraw_ LHex 
rts 
SetByte 
osr GetAddress ; ; 
best 1 #QDDAODR, FLAG( a5 ) s8it 4 of FLAG, set means 6dd address 
beq @1 « Hae po Se eae ‘ ? 
adda #1, a3 : 
al bse PrtResponse oe 
tse GetData 
mave.w #180, -(SP) pak 
move. W dl, -(SP yyl 
pve. w us, ber’ i. integer 
jse ADraw_ Hex 
move. W #180, -(SP ) pul 
move. W di, -(SP) yl 
move. w #' ',-(sp) ; Character 
jsr Paint Ch ;Place character on the screen 
move.W #8188,-(SP) pl. 
move. W di, -(SP) yl Pi 
move. w a’ ",-(sp) ; Character z ‘ 
jse Paint Ch ;Place character on the screen 
Bee 7 é 
bay 


s SSST SSMS AAAS S PAS SSS SSA SSSA ASSRARKARAHA TSH AAAVSERAAAIN LS ss Ses eeaseerzsw2 


t 
TestTimer 
lea 
adda 
lea 
move.b 


belr 
lea 
adda 
mave.b 
emp.b 
one 
mave.b 
cmp.b - 
bre 
bsr 


Response, a0 
#11, a0 
Setchar, al 
(al), (a0) 


#CONT, FLAG( a5 ) 
LKBDQ, a4 
Hl,ad_ 

(a4 )+,d7 
#'°S',d7. 

34 fo al, oA 
(a4 )+,d7 

e ' d7 

v2 oes 
GetAddress 


ca 


iClear Flag For ax itingicont inuaus 


;Is this a TS instruct ian? 


gis ie TS or TSR?- 


3 

a 

< 
nae 
z= 


3 
(2) 
< 
a 
rc 


@l move. 


_ PreResponse 
#180, -(SP) 
dl, -(SP} 
TSPAT, al 
al,-(SP) 
Paint String 
#0000, (a3) 


ix. 


petring address 


w 
move.w #$FFFF, (a3) 
mave.w  #$£AAAA, (a3 
move.w #$5555, a 
move.w #&$AAAA, (a3 
mave.w #$S555, (a3 ’ 
btst SCONT,FLAG(aS) ;Check flag. for exiting continuous. 
beq ol « : 
bra @100 
@2 cmp. b #'R' | d7 jis i¢ TSR? 
: bne @S0 
bsr GatAddress 
osc PrtResponse. 
move.W #180, -(SP) pul 
move.W di,-(SP) pul 
lea TSPAT, al 
mave.L al, -(SP) j; string address 
jsr Paint String 
@3 move.,w #$0000, (a3) 
move.w #$FFFF, (a3 
move.w -a&S$AAAA, (ad 
move.w #$5555, (a3 
move.w #$AAAA, (a3 ) 
mave.w #$5555, (a3) 
mave.w (a3), d0 
best #CONT,FLAG(aS) ; Check Flag for axiting continuous 
beq @3 
bra @100 
w4 
cmp. b #'L',d7 sIs this a TLOC instruct ian? 
bne . 96 
move. b (a4 )+, d7 ;Is it TLOC? 
emp. b #°0O',d7 
bne @50 
move.b (a4 )+, d7 ;Is it TLOC? 
ema.b a'°C',d7 
bne @50 
bsr : GetAddress 
bsr PrtResponse \ 
bsr GetDatea 
mave. w d5,d0 
bsr GetData 
as move.w dO, (a3 
mave.w d5,(a3 
move.w (a3),di 
btst #CONT,FLAG(aS) ;Check flag for exiting continuous 
beq es , ; . 
bra 6100 / 
@6 
@50 . bra What 
@100 res : 
‘ RPBSOISLSATAISSSASAARATA ST TRARAVAASVASHaACScsELe*scassastawewaskarewetawan 
COPS it ey z 
lea LKBDQ, a4 2 = 
adda #1,a4 
move.b (a4 )+,d7 a. : 
cmp. 6 #'O',d7 sis this e COPS instruct ion? 
bine @50 
move.b (a4)+,d7 
amp. b a'°P'  d7 
bne @50 
move.b (a4 )+, d7 
comp. b a°S',d7 
bre @50 
move. b {a4 )+,d7 
emp.b t' *,d7 
"  bne 350 : F 
. clr. l dil : Paes 
move. w ROW( aS), dl Calculate where row is. 
mu lu 810,d1 
add. w #120, d1 ‘* 
mave. Ww #80, -(SP } pul ? 
nave. W dl, -(SP) yh 
lea COPSHEAD, al : ye 
move. al, -( SP) jateing address 
jse Paint String 
add.w = #1, ROW( a5) 7 : 
bse GetData 
move.w #180, ~-(SP) ixl En 
mava.W di,-(SP) Sb gare = &- b Be 
move. w d5,-(SP) © . 7 integer ; : 
ysr ADraw Hex - ee 


we: : “4 2 oe ; 
a a ~ eat matte ca SeeEnaneademneaadtemn emammpnemtnemmneaminn eaetnaememamenememmmnenmie - ‘ atten eeenes i 


ee et, 


Neen nn ne nn nee eeasemmnamatnerintenmmssneeereenmscnsememmen sata steric sat cel i a a ia eer e “ : _ 


move.W #180, -{SP) pul. - 
move.W di1,-(SP) 7yl 
move,w ' ',~«(sp) ; Character: ie 
jsr Paint Ch — ~ +P leace character on the screen 
move.W #188, -(SP) pxi- 
movea.W di, -(SP) ~. pgl 
mave.w #' °,-(sp) ; Character ee & 
jsr Paine Ch {Place character on the screen 
mave.w d5,d2 
bsr LCOPSCMO 
bra @100 oe 
950 bra What 
@100 ets 
eee eT eer err rrTTTTT rir TTTrererrrrirrrTerririrrrirerrrerren 
MONCOP'S 
lea LKBOO, a4 
adda #1,a4 
move. (a4 )+,d7 = 
cmp. b #'O',d7 3Ia this a MON instruct ion? 
bne @50 ‘ 


movea.b (a4)+,d7 
emp.b = 8#'N' , d7 


bne 50 
move.w #0, COPSROW( a5 ) ;Row in dialeg display 
move.w #80, COPSCOL( a5 ) ;Col in dialog display 
bsr CirDialag ;Clear dialog box 
bsat #COPSWATCH, FLAG( aS ) ;Bit 2 of FLAG, set means to monitor COPS 
bra #100 
@50 bra What 
@100 rts ; 
‘ SESSSR MASSE STARA RT SAS ATS Asa ENTE EASE Te NRTA Teese 
Ex itCOPS 
belr #CONT,FLAG(aS) ;Check Flag for exiting cont inuous 
lea LKBOQ, a4 
adda #1,a4 
mova.b = (a4)+,d7 . ‘ 
cmp.b #' ',d7 gle this a X iAstruct ion? 
baq @100 ee 9 aR 
cmp.h a'M',d7 yIls this a XMON. instruction? 
bne @50 be : : 
mave.b (a4)+,d7 "ig 
cmp.b 8'O',d7 sis this « XMON instruction? 
bne @50 | 7 
mave.b (a4)+,d7 e 
cmp.b #'N', d7 ee / 
bne @s0 . 
be lr #COPSWATCH, FLAG(aS) © | 
‘ bra 6100 
@S0 bra What 
@100 rts 


4 


¢ 
, 23SSSSerezesse2e= 


; IrrrrTTTrrtrrtiit i TTiitititti tt titttt tt tit ee 


% 


Help 


bsr. CirScreen x 

maove.W #80, -(SP) yal 

move.W #120, -(SP) > yyd 
*lea He lpi, al : 

mave.L al,-(SP) _ $string addrats 
jsr Paine_Sering 

mave.W 880,-(SP) 3 xi 

mave.W #8130, -(SP) ry - 

lea He lp2, al 

mova. al, -(SP) : ; ystr {ng address | 
jsr Paint String : 

move.W #80,-(SP). - yal ‘ 
move.W #140, -(SP) ryl 

lea — Help3,al . ; 

move. al, -(SP) : -~string address 
ysr Paint String o 

mave.W 880,-(SP) ee 

mave.W #8150, -( SP) Sia 

lea Helo4,al ; “ ‘ 
move. al,-(SP) : jetring address 
jsr Paine String wee 

mave.W 4880, -(SP) 2 a 

mave.W #160, -(SP) sgh 

lea |. Helps, al Sst . 
move. al,-(SP)- “ly string address 


jsr Paint String 


| move. 


W 


move. wW 


lea 
move. 
jsc 


mave, 
move, 
lea 
mave. 
jsr 


move, 
mave, 
lea 
move. 
jse 


move. 
move. 
lea 
move, 
jsr 


move. 


move. H. 


lea 
move. 
jsc 


move. 
move. 
lea 
move, 
jsr 


mave, 


L 


W 
W 


L 


Ww 


W 


L 


W 


W 


L 


W 


L 


W 


W 


L 


Ww 


mave.W 


lea 


move, 


jsr 


move. W 
move. W 


lea 


move. L 


jsr 
move. 


ets 


w 


#60, -(SP) gut 
#170, -(SP) gyl 

He ip6, al : ; 

al, ~-(SP) patring address 
Paint String 

#80, -(SP) gul 

#190, -(SP) yyh 

He lp?7, al 

al, -(SP) ;atring addrass 
Paint _ String 

#80, -(SP) gull 

#200, -(SP ) yl 

Helps, al 

al, -(SP) ;string address 
Paint String 

#80, -(SP) gel 

#220, -(SP ) pyl 

He lp9, al 

al, -(SP) ;string address 
Paint String ‘ =e St 
#80, ~-(SP) axl 

#230, -(SP} ryt 

Helpid,al — 

al, -(SP) istring address 
Paint String 

#80, -(SP) px 

#240, -(SP) yyl 

Helpli, al 

al, -(SP) ;*tring address 
Paint String 

#80, -(SP) px 

#250, -(SP) pyl 

He lpi2, al 7 
al, -(SP) petring address 
Paint String 

#80, -(SP) yx 

#260, -(SP ) yi 

Helpl3, al 7 
al, -(SP) ;String address — 


Paint. String 


#15, ROW( aS ) 


+ SRR SSS SSSA SAAS ARATSATAREAOS KL SAAN seas AtATeAssAeBdERaA 


Cyee ses 
— 
7% ‘ 
m < 


one | 
mave.W #40, -(SP) ae? a 
mave.W dil,-(SP) pyl 
. move.W #670, -(SP) gua 
add.w #28,d1 ; 
move.W dl, -(SP) 7y2 
jsr nAWh ite Box sClear 4 cammand Lines below 
rts : *. a be 
: PererererirrrererrrrrtTrrrtrrrrrrt iti rir rrr reper rrr tri rerererrry) 
CLRRasponse 
cle.w d2 
mave.b ae ‘dl 
gs Response, al (yClear response string . 
adda #14, al 
a1 mave.b di,(al)+ 
add. w #1,d2 
cmp. w #46, d2 
bne @l 
chs 
Vico sia weuyauudas wus swaswawe daléadewus duseausbaahivadedaxessuees 
ClrOialag ~ 
mave.W %65,-(SP) ix ; 
mave.W #31,-(SP) yl % 
mave.W. #635, -(SP) pme2 
mave.W 88, ~-(SP) + y2 7 
yee ADialog -;Clear dialog box 
ros 4 é 
| SS SS SS SSeS Se ee Sas SERS TSERAH ERAT EAAE AER aRs Bees se2steasdaseeasssss 
Clrserean fe & ‘ 
mave,W #40, -(SP) 7 «i 
move. W- #120, -(SP ) py 
mave.W #670, -{ SP) ix2 
move.W #340) - (SP } i y2 
jsr AWhite Box. ;Q lear sereen_ 
rts soe 6 
. PER EEE ae SSE EE SERS SS Sees tds eas eee sees ses es sascesssuseseeses= 


Page 0 


GeatAddrass 
elr.l d6 
elr.l d7 

@i move.b  ({a4)+,d7 
empa.b a’ ',d7 
bne @3 


@2 


GetOata 


ol 


add. w 
cmp. w 
bmi 
elr.l 
move. | 
bra 


elr.l 
move. | 
bra 


move.b 
cmp.b 
beq 


btst 
bne 
cmp.b 
bmi 
cmp.b 
bgt 
and. 
bra 


cmp.6 
bmi 

cmp. 6 
bgt 
and. 
add 


ro 


adds 
move.b 
cmp.6 
beq 
mava. | 
rol. l 
move, | 
bra 


belr 
move. | 
move. | 
and. | 
mave. | 
cmp.b 
beq 
bset 
rts 


(a4 )+,d7 
#' "dd? 


2ODDADOR, FLAG( aS } 


a3, d0 
dO, dil 


SSFFFFFFFE, dO 


dQ, a3 
d1,do 
@101 


a7 | : 

@100 | | 

@101 

: eeGueuabakecdeesduecudeucuaduéeenns hued suusdeadseudswdnasaseanunn: 


clr. l d6 

cir. l d7 
move.b (a4 )+,d7 
emp.b ae 
bne @3 
add.w #1,d6 
cmp. w #30, d6 
lami el 
@iewl dS 

bre @100 
‘elrel d§S 

bra @5 
mave.b (a4 )+, d7 
cmp.b #' ',d7 
beq 9100 
best #7 ,d7 
bine M2 

cmp. b #$30,d7 
‘ma ; 96 

amp. b 4$39,.d7 
ngt 26 

and. b at, d7 
bra a7 
emp... a$41,d7 
im i i2 

cmp. b 8$46,d7 
aogt ry 

and. b a$F i d7 
add.b 8$9,d7 
add. 1 d7.d5 
move.b {a4),d7 


Fo a igen et atari hin ed lenin at 


;Skip past any leading blanks 


j;...No¢ a blank, go after address 


yee. No digits found safety counter 


; Number not found, defauit to address 0 


sinit address 


;Get next character 


Out of range? 
; Below 0? 
yAbove 9? 


pIsolute digit 


;Belaw A? 
;Abave F? 


;ITsolate 
je.. and canverte 


yAdd bit to address 
;See if address end 


;Open a space for the next digit 


v 


;Bit 4 of FLAG, set means odd address | 


#ODDADOR, FLAG(#S) Bit 4 of FLAG, set means odd address 


;Skip past any leading blanks 
;...Not-@ blank, go after data 
jy..eNo digits found safety counter 


; Number not found, default: to data 0 
sInte date 


;Get next character 
/ 


;Out af range? 


' +Belaw 0? 


; Above 9? 


;[solarée digit 


“« 


; Below A? 


Above F?. 


j;isolacte 


pd... and convert 


7Add bit to data. 


;See if dsta end | 


cmp.b sy ‘,d7 


roll #4,d5 ;Open a space for the next digit 
bra a4 : ; 

@100 rts y 

. EET EET TEP ETTT ECTOPIC LTTTeLTErrrererrerrreeericrreerrreryT ye 


Expects address in a3, aS points to variable table 


’ 
PrtResponse a % 
clr. l di * 


move.w ROW(aS), di sCelculate where row is 
mulu #10,d1 : 

add.w #120,d1 

mave. Ww #80,-(SP) ph 

move.W di, -(SP) syd 

lea Resporise, al = 

move. L al, -(SP) ;string eddrass. 

jsr Paint String 


add.w #1, ROW( aS ) 


move. w #88, -(SP) ;x1 
move.W di, -(SP) yl 
mave.l:° a3 sleet ; integer 
jsr ADraw_LHex 
rts 
+ SSS SPS AT SVS SAS AAT ASRS SLAASARISVAVASSABARAAAAAAKLARBASAAKAAeAaast2as 


Level 2 interrupt handler. Handles COPS interrupts. 


LVL2tnT ; Ye olde entry paint. 


movem. | AQ-A6 00-07, -(SP) ; save required regs 
movea. 1 #VIABASE, AQ ; and set 6522 port base 
lea - KEYBOARD, a5 . ; Ver lab le table 

elr.l dO 


move.b PORTA(AO ), 00 ; get the data 

bsr.s ENQKSD ; QUEVE IT 

mavem. 1 (SP )+, AQ-A6/D0-07 go... Pestore the reg 
rte ? 3 ...0nd axit 


a> sss e2tz=22eeepaeaxzex2uruseaeaeeenteesataanse ts te Bee ete zazaeauae 


ENQKBD - ADD CHARACTER TO QUEUE, character in dO 


ENOKBO 


btst ACOPSWATCH, rUae( se) _ Bit 2 of FLAG, set means to monitor COPS 
beq 310 : 

oo bsr WATCHIT . 

@10 clr. di | 3Initialize 
cmp.b #$7F,d0 - .j Apple Up, treat as @ return 
baq @41 ; 7 ; ; : ; 
btst #7, d0 ;Agsure that down key was pressed 
beq 9100 - -3..0@8lse@ ignore and get. out 

; and.b R$7F, dO 

@il move.w MOQUSECNT(a5), di we j Ignoring mice movement? 
beq @1 j+..nane ta ignore 
sub.w ‘“#1,MOUSECNT( a5 ) Pn j+.sIgnorea and ©... ; . 
bra @100 pieees. gat “aut 

@l cme.b #$00,d0 ~ Start of mouse movement code sequence? 
bne @2 $e. MG 
move.w #2, MOUSECNT(a5 ) j..+ Yes, expect two mode codas 
bra 3100 3 

; « 

a2 lea CONVERTCODE, a0 ;Ascii table 
mave.b (a0),d2 ;Get a space for later compares 
adda dO, a0 ge. OFF set for character gat 
clr. dl : : 
move.b (aQ),di ; ;Ascii code” 
cmp.b 8 d2,d1 ;& space? 
tne 93 aa : 
cmp. b #$5C,d0 see area ore che Space Bar? 
beq a3 : jee YOR, ok 
bra 3100 ' one. awit . 

, F : id 
$3 cmp.b ~~ #$45,d0 ; Backspace? * 

bne v4 «na 


mave.w CCOL({ aS), dO 
emp. w #0, dQ 


.yes, which column at? 


hie ae 


beq 3100 jat end, ignore 
: clear last character printed and remova fram que, 
sub. w 81,CCOL(aS) - ; Removed fram que 
clr.1 dO _ 


mave. uw COL( aS ), dO 

mu lu #8,d0 

add.w = #XCOMMAND,dO | : 

move.W d0,-(SP). er sal : a ; ‘ 
best 8BUGMODE, FLAG( 05}  ;Bit 5 af FLAG, see in, LISA OEBUG ,. - 
bne 231 ~=—- : eT ee ae hn fie te. 


bs ated ss ‘i 2 Sati: le tenet cortwctennbamcmmnt et tian: ota 


a acer merce 


move.W #10,-(SP)} ‘yyl 
bra @32 Be : 
@31 move.W #108,-(SP) yl . 
@32 move.w d2,-(sp) Space Character 
jsr Paint Ch - Place character on the screen. 
bra @100 . : 
@4 cmp.b %#$48,d0 iReturn? 
bne @7 3...890 
bra 42 : . 
a4ai cmp.b #$7E,d1 :Treat Apple up as a return 
beq @7 2 bere no : 
@42 move.w CCOL(a5), dO ;Any command? 
beq @100 | ;-..No, ignore 
lea KBDQ, ad CHARACTER QUEUE 
lea LKBOQ, al juast command — 
mave.b (a0), dO jSee if exit cantinuous loop 
cmp.b a’x', dO. 
bne @43 ; - : : 
bset. #CONT, FLAG( a5 ) gSet Flag Far exiting cont inudus 
@43 elr.l dQ : i j 
mave.w CCOL(aS),di ne . 
aS mave.b (a0 )+, (al )+ iMove ta command buffer 
add.w #1, d0 
cmp.w d0,di 
hne aS : , 
move.b #' ‘,di Clear rest of command buf fer 
@6 move.b dil, (al )+ 
add. w #1,d0 
cmp. w #40, d0 
bne @6 
bset #DONE, FLAG(a5 ) 
move.w 80, CCOL( a5 
mave.W #112,-(SP) ial ; . 
best #BUGMODE, FLAG( aS ) ;8it S of FLAG, set in LISA OEBUG 
bre a6i 
move.W #10,-(SP) yl 
bra @62 
@61 move.W #108,-(SP zyl 
@62 move.W #8600, -(SP ied ; 
btst #BUGMODE, FLAG( aS ). ;Bit S of FLAG, set in LISA DEBUG 
bne @63 
move. #&18,-(SP) yl 
bra @64 . 
@63 mave.W #116,-(SP) syl ; v 
@64 jsr AWh ite Box iClear command line 
bra 8100 
@7 lea KBDQ, A2 '3Set quauve address 
eir.l d4 / 
move.w CCOL(aS),d4 }find positian in queue 
cmp. w #38,d4 78 
heq @100 fever’ ioe 
adda d4, a2 os ; : 
move.b di, (a2) ;Plece ascii in queue 
‘ elr.l do 
mave.w CCOL(aS ), dO 
mu lu #8, d0 
add.w  #XCOMMAND, dO 
mave.W d0O,~-(SP) 3x1 PR ct ore a greet Sas 
best #HUGMODE, FLAG( «5 ) ;Bit S of FLAG, seat in LISA DEBUG 
bne a8 ‘ “ey 
move.W #10, -(SP) iyl 
bra a9 
@8 move.W #108, -(SP) 7yt 
ag move.w dil, -(sp) ; Character 
jsr Paint_Ch . Place character of the screen 
add.w #1, CCOL( a5 ) 
@100 rts 
CONVERTCODE ; : 
. ASCII t : i0x 7 
. ASCII 7 ; 1x 
ASCII /*2789-456*.23 | pan 
. ASCII ; 3x bi 
LASCII ‘-+foPr %O SL ¢. + 4x 
-ASCILT ‘90ULTJKE IML; ,.0° + Sx 
-ASCIT ‘€6785RTY\FGHVCBN’ 76x 
-ASCIL °A23410SW Zx0 ;7™ 
. Byte $7E ‘- 
; 0123456789ABCOEF a 
H + ii & * 
Watehl[t ; « en ae 
move.w dO, d7 _ {Save keytade ; _ 
move.w COPSCOL(aS),d6 ;Caluma in dialog display 
cmp. w #100, d6 os ta : 
bmi 3100 | 
mave.uw d6,-(SP) eS Cra Spat 
move.w COPSROW( aS ),d5 -;Row in dialog display 
add. w #40,d5 : u Qe ge ae a é 


t 7 : tee 
— Cr eS ee eS cee tn rem eee tree a HS aa ree Are at Aetna Cet ERE Ree RE Re tet RR Se tate eng Sonn nse = Arathi eee + 


move.W dS, -(SP) yl 

move.w d7, -(5F ) } integer Bc 
jsr ADraw_Hax 

bsr PaintB lank 

add.w #8, d6 a 

ber Pa intB lank 


add.w #40, d6 


bsr PaintB lank 
add.w #8, d6 ) 
bsr PaineB lank 


sub, w #24, d6 
move.w d6,COPSCOL(aS } 


cmp. w #600, d6 ;Past edge? 

bmi @100 — feusNO, Garntinue 
move.w #80, COPSCOL( aS ) 

move.w COPSROW( a5 }, d5 


add.w #10,d45 >Next row ‘ 
move.w d5, COPSROW(aS5 ) 3 
cmp.w #41,d5 : 
bmi @100 


move.w #0, COPSROW{ 25 ) 


move.w d7,d0 


Setup interrupt vector 2 for COPS interrupt handling 
“Linking” to current handler 


| SETINTERRUPTS 


move.w #&$2700, sr ;Disable interrupts 

lea . SAVELEV2, a0 seed 

move.1 levavet, al ;Save original level 2 vector 
move.1l ai, (a0) 

lea LVL2INT, al yAddress af our handler 
move. 1 al, lev2vet gee, int vector 

move.w #$2000, SR zEnable interrupts 

rts 


A SEE rc RC TPE NER SEEN NCSI 


Initialize the COPS 6522 chip for appropriate interrupt, 


Hy 
’ 
HARDWARE ;Setup hardware 


lea VIABASE, a2 ; Setup our COPS bese address 

lea SAVEVIA, al 

mave.b OORB( a2), dO j Save port G 

mave.b dQ, (al) 7 = : 

and.b #$A0,d0 jee.#ave bits 5(PRES ), 7(CRES ) 

eri.b #$0€, dO g...add in PS1L-PB3 

move.b dO, DORB(a2 ;Make P81-PB3 outputs for volume. ua 

move.b #$A0,PORTB(a2) ;Init value to port 8, volume at zero. 
‘ mova.b ACR(a2),1i{al) 

move.b #$01, ACR(a2) 3 «ss PartA Tatch enable. 

move.b PCR(a2),2(al ) oe 

movea.b #$c9,PCR(a2) 3; Handshake setup, CB2 in manual sutput mode. 

move. b” IER( a2), 3(ai) ‘ P eee ‘ 

move.b #$7F, IER(a2) 5 «2 tlear all interrupt enables 

move.b IFR( a2), 4(al ) : ‘ : 

move.b #$7F, IFR( a2) ; --cand clear any existing bits 

move.b #0, d2 

bsr LCOPSCMD 

wes , 


. 
’ 


as 

LCOPSCMD mavem. | dO-d4/a2-a3,-(sp) ;Save registers used 

move.w sr,-(sp yossebls, interrupts 
ori.w #30700, sr : on 


movea. | #$Q00FCD080, a2 a as VIA address 


clr.b  7(a2) ;...Close port in case it was left open(OORA ) 
mave.b d2, 31(a2) «Place command on port (PORTA2 ) 
u ca 
move. 1 a2, a3 7 
adda e$O1, a3 ;Set address reg to access (ORB) fast 
;1) wait For CROY to go dawn a 
; First assure donnt catch CROY dawn toward and of cycle 
mave.w #$0897, di ;(12)set timeout 
a1 subq.w 4#1,dl 4) decrement counter 
heq.s 16 c _ 8) ...@e1t on timeout 
best 86, (a3) peat at CRDY,. wait until down 
srea.s ot (8) 


> now space due into up area and teak fae: next CRDY. aur 
mu lu #1, 40 — os KALT tama, positian for next, cROY 
move. w #0897, di "3 (12 )sat, timeaue . GIS, 


econ en 


as : : tarot - - 


e2 subq.w &1,d1 4 \decremant counter . 
beq.3 65 )...@eit on timeaut: ‘3 
btst #6, (a3) she it until CROY aaiine Meady 
bne.s G2 - 3(8) 
32) satup valid data for COPS to accept a : 
move.b #$fFf,7(a2) _ Open port ta allow command to COPS, (DDRA) 
33) lock far CROY gaing up ie ; 
move.w #$0830,d1 ySet timeaut 
a3 subq.w #1,d1 _~Decrement counter 
beq.s o6 $...@mit on ¢imeout 
move.b (a3),d0 ;Wait Far COPS ready 
btst #6,d0 , ae : 
beq.s 03 
; hold data for COPS toa read, hold cime. 
move.b #10,d0 - 
a4 subq.b #1,d0 , “yDalay far cors. to accent data 
bgt.s a4 - 
34) turn of f data 
clr.b 8 7{a2) '. 3Close port, command taken by COPS, (DORA) 
movea.b #$82, 29( a2) Enable CAL for next Interrupt, (TER ) 
bra.s G8 «g@t out with OK status 
as move.w #&2,d7 ;COPS not responding (Pes not high): error flag 
bra.s @7 
a6 move.w #1, d7 . ;COPS indicating never. ready, error flag 
; Get out with error 
@7 move. Ww Be +,sr sEnable interrupts 
{ mavem. | ai do- d4/a2-03 jrestore registers. 
move.w ##1,d0 serror cade, COPS failure 
bra @10 : 
; Get out OK 
as move. w sp)t,sr sEnable interrupts 
movem. 1 yen go-daveteas prestore registers | 
elriw do 30K code 
910 rts 
| SeSeeeesasedesaessssesanasaestendedesasszedeeseneonesnsses ee nelteaskasesseRE 
; Restore vectors and conditions to pre-test state a 
, 
RESTORE mave.w SR, dO SP ne 
mave.w #$2700, sr ‘Digeble interrupts 
lea SAVELEV2, a5 i 
move. 1 (aS), al sRestere original level 2 vector 
mave. | al, lev2vet - é 
move.w d0,SR 
i lea VIABASE, a2 3}. Setup our COPS base address 
lea SAVEVIA, al 
move.b (al), ODRB(a2 a 
move.b 1(al),ACR(a2 pReatace original value 
move.b° 2(al ),PCR( a2 e . . " 
move.b 3(al), IER( a2 % 
mave.b 4(al1), IFR(a2 ee : Es 
move.w #$2000,sr ¢Enable interrupts 
rts 
: sans PTIITTITTITTITTITTITTITIL ETL TTL Trlriitrirere ieee et tt 
Invalidw .Byte 4 : 
-ASCII '33??° 
. Byte 8) 
Helpl - .Syte 58 ee ma 
ASCII ‘Lisa debug > |. Quit — RB. Fail Buffer at wxxxxxxx’ 
. Byte 6) ihe 
Help2 . Byte 62 ' : ; 
; .ASCII ‘SB addr xx SW addr /xxxx SL add. xxxxxxmx xX (exits ‘cont )’ 
Byte 0 eso; . : CoS 
Halp3 . Byte 56 : eg fe Te bs 
.ASCII ‘SCB addr »x SCW addr xxxk SCL addr xxuxxxxx TS addr’ 
Byte 0 
Help4 . Byte 62 ; ae : + 
ASCII ‘COPS xx. OW addr xxxx DL addr’ xxx OS addr xxxx ° 
.3yte 9 d a ; . » 
Helps . Byte 58 Baty Eos, 
-ASCIT “MONCOPS RC addr OCB addr DCW addr ' 
. Byte Q ae , 
He lp6 Byte 50 ebay Beas te 
-ASCII 'XMONCOPS. TMODE x y | « TLOC addr xxxx xxx TSR addr’ 
. Byte i) a 2. cat . 3 ; 
Help7 Byte 62° bo ae RE tate: a , i 
ASCII. ‘90002000 ITWM ©. 00000000 MSereen 00006000 SCC 00000000 ROM’ 
~Syte 9 : : ag Ss 
He lp8 Byte 6205 | ae eda eS 
-ASGII '00004001 Timer QOOQ01FA4 LScreen  xxxuxxxx Stat ~ 00007000 Err’ 
. Byte 0 BE WO a Slee ee See 
He lpg -Byte 62 — > : woe EEE BOER ae 


Se a ee 


Helpld 
Helpll 
He lp12 


Help1l3 
COPSHE'AD 


’ 
Response 
TSPAT 


Oispchar 
Setchar 


KEYBOARD 


i 
SAVEVTA 


SAVELEV2 
KBDO 


SLINE 
LKBOQ 


ASCII 
.Gyte 
Bytes 
- ASCII 
. Byte 
- Byte 
- ASCII 
- Byte 
Byte 
ASCII 
Byte 
- Byte 
- ASCII 
-Byts 


.Byte 
. ASCIT 
.Byte 


- Byte 
ASCII 
. Byte 
-Byta 
-ASCIT 
- Byte 
ASCII 
- ASCII 


‘Call program > JSR addr. Execute a test. > Selected test once’ 
0 _ : . 
42 ate ; 
‘Loop an a test >» Selected test until fail.’ 
Os: a —_ ; 
60 es | Seer ee 
‘Adjust L video > 720 x 364 Adjust M-video > 720 x 544° 
0 , i : i 
42 . 
‘Talk, Serial B > Low level external debug. ' 
8] as ; 
36 * 
‘Power Cycle > Diagnostics repaati ly, ' 
0: 
12 
" cCoPs > ' 
0 
60 s 
MICK > 
0 P 
30 , 
‘Q000 FFFF AAAA 5555 AAAA 5555 ‘ 
0 
‘s,s! 
et : 
word Q ;CCOL, Column, for command line 
word OQ 5 XXMKNK 
word O :FLAG, Flag ward 
word O ;MOUSECNT, counter for mouse codes 
ward O ;ROW, in folder display 
word 0 ;COPSROHK, Row in dialog display 
(0) 


;COPSCOL,Col in dialog display 


_word 0,0, 0,0, 0,0,0,0,0,0,0,0,0,0 


- WORD 0,0 


-WORD $1234 


-BLOCK 40,0 ; CHARACTER QUEUE 


.-WORD $5678 
.BYTE 38 . ; . 
.BLOCK 40,0 . jest command queue 


. END 
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Size requirement estimates far Lisa 1.75 Boot ROM 


Talk ‘ so280. =—s—s«&G AOD 
AppleBus boot , $0280 - 640 
Graphics w/o menu $1800 6144 
Menu Sauxx - uN 
Debug mode $1055 4181 
other debug (floppy) ; $0200 —Ce 512 
Other service Suxxx “ex 
Extended tests Suxxux RRM 
Main boot fF low ; Sxuxx MmMxX 
Alternata boot & Monitor SOAAO 2720 
{Fatal error handler Sxxxx ; auRM 
Non-fatal errar handlar Sux x / RR 
Default exception handlers S$xxxx_ RUM 


Diagnostics : Poe re ia” 
Checksum $0040 64 


Videa memory test Sxxxx ANH 
Parity, Video memory SOSAC 14S2 
Video circuitry $0456 1110 
Timer #0 $0coo 3072 
Timer @1 : $0400 _ 1024 
Timer #2 ; $0200 ~  §12 
COPS $0200 512 
RS232A $0400 1024 
RS232B $0186 384 
Size mamary $0140 320 
MMU read/write, address $0512 1298 
Main memory std. Sx mx MRXX 
Parity, main mem $0200 $12 
MMU functional SO8SA 2138 
IWM Sorex. MMH 
Builtin hard part $0300 768 
Expansion cards $0200 — §12 . 


TOTAL $7363 29539 , 


Program Teast; 
type 
string255 = string{255 ]; 


var 
DStr: Str ing25S; : . 
Procedure ROMTa lk; EXTERNAL; 
Procedure DeskTop; EXTERNAL; 
Procedure Paint String(X1,Y1: integer; Var DStr: Str ing2SS ); EXTERNAL; 


Procedure AFolder(X1, Y1,X2,Y2: integer; var OStr: Str ing2S5 ); EXTERNAL; 
Procedure Alcon Draw(X1, Y1, Icon Cade: integer ); EXTERNAL; 


begin 
DeskTop; 


DStr:2 ‘ROM Talk’ oP 
AF oa Ider (60, 70, 680, 250, OStr ); 


OStr:+ "This LISA is executing the ROM Talk pragram. ' 
Paint_String(200, 140, OStr ); 


Alcan _Draw(90, 140, 8); 
ROMTa lk; 


end, 


